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ABSTRACT 

This thesis documents the development of an on-line information technology 
management (ITM) research catalog that can be accessed by DOD and DON agencies or 
other interested parties via the World Wide Web. The on-line research catalog allows the 
ITM professors at the Naval Postgraduate School (NFS) to quickly and easily maintain their 
own research information regardless of their operating platform. 

The logic for a multi-user relational database approach to managing the research 
catalog is addressed. A semantic object model and a relational diagram are developed to 
create a conceptual design for the database. Next, the application process and description of 
the common gateway interface (CGI) scripts are presented. Chapter four displays and 
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1. INTRODUCTION 


This thesis documents the design and implementation of an on-line Faculty 
Research Catalog for the Information Technology Management (ITM) Group of the 
Systems Management (SM) Department at the Naval Postgraduate School (NPS). The 
on-line research catalog contains significant research information by ITM professors and is 
accessed via the World Wide Web (WWW). 

A. BACKGROUND 

A recent graduate of NPS, Barbara Franklin, did a thesis in which she collected 
and consolidated the ITM professors’ diverse backgrounds and various research interests 
in an attractive brochure. The goal of the brochure is to provide research information to 
the many geographically dispersed DOD/DON agencies and solicit research sponsors for 
further research opportunities. This brochure is in a hardcopy and electronic form. The 
electronic form currently resides as a series of static web pages on the WWW. 

B. PROBLEM DEFINITION 

The current research catalog does not allow the ITM professors to have ownership 
and easily maintain their respective pages in the brochure. Consequently, these static 
pages have not been updated since their inception last September and are quickly 
becoming obsolete. In addition, since the catalog also exists as a series of web pages, 
there is no central repository to contain the data. As a result, the catalog contains 
redundant information. Most of the redundancy occurs between the faculty research 
pages, research areas and recent publications' sections of the catalog. 
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For instance, it is common for ITM professors to co-author a publication. This same 
publication may appear on their respective research pages as well as the other two earlier 
mentioned sections. 

C. OBJECTIVE 

The research catalog consists of common fields of information that needs to be 
m^tained (add, modify, and delete); this makes the catalog the ideal candidate to store its 
information in a relational database. The database must reside on a server that will 
provide an acceptable response time. 

All of the ITM professors have access to the internet. The internet uses a protocol 
called TCP/IP that allows access to the WWW regardless of the users operating platform. 
For this reason the on-line research catalog is a WWW client/server application that allows 
ITM professors to easily and immediately maintain their own research information and 
have it available for world wide access. Figure 1 depicts the above process. 



Figure 1. WWW Client/Sever Model for the On-line Research Catalog 
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D. METHODOLOGY 


A review of the existing ITM group faculty research catalog was conducted to 
familiarize the author with the format. Next, selected ITM faculty members were 
personally interviewed to obtain additional information and user requirements. The author 
chose Delphi, an object-oriented language, to be the interface between the user and the 
database. A context diagram and data flow diagrams were developed to depict the 
process of maintaining the ITM research catalog. Finally, a semantic object model and 
relational diagram were created to design the database. 

The author’s recent educational background in systems analysis and design 
methods, relational databases, and HTML proved to be extremely helpful in the 
development of the on-line research catalog application. The author assumed the roles of 
ITM faculty member, other users and system administrator in the development of the 
application. 
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n. THE DESIGN AND IMPLEMENTATION MODELS 


This chapter describes the semantic object model as a database design model and 
its conversion to the relational model for implementation. 

A. THE SEMANTIC OBJECT MODEL 

The research catalog database was designed using SALSA, a data modeling tool. 
The semantic object model of the data maintained by the research catalog is shown in 
Figure 2. Below is a brief description of each semantic object. A semantic object is a 
representation of some identifiable things in the users’ work environment about which he 
wants to maintain[Ref 1]. 

• Faculty Account: Gives authorization for faculty members to access the 

database. . . 

• Faculty; Contain detailed information about each faculty member. 

• Research Page: Documents the research interests of a faculty member. 

• Publication; The publications that a faculty member written. 

• Journal; A subset of the Publications object. 

• Book; A subset of the Publications object. 

• OtherPub; A subset of the Publications object. 

• Faculty Research Area; Research categories that broadly describe research 
common to several professors. 

• Research Subarea; Narrower descriptions of some of the broader research 
areas. 

• Research_Center/Lab; Provides a description of each center or laboratory, 
current research topics, and a point of contact. 

• Sponsor; Identify recent sponsors of the ITM professors. 
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Sysad_Account: Contains account information on the person who monitors 
and maintains the entire contents of the database. 
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Figure 2. Semantic Object Model 
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B. THE RELATIONAL MODEL 


The semantic object model cannot be directly implemented into a database. 
SALSA provides a method to generate a database schema from a semantic object model. 
A database schema defines a database’s structure, its tables, relationships, domains, and 
business rules [Ref. 1]. 

The relational model is a particular way of structuring and processing a database. 
It shows in an understandable way how the database data is stored as tables and their 
relationship to one another. Figure 3 shows the data that is stored and the relationship 
among the rows that represents tables of the database. 
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Figure 3. Relational Diagram of the Database 
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The complexity of the database is clearly represented in Figure 3. For instance, a 
publication can be a journal, book, or other publication type and can have one or more 
authors that may or may not all be ITM professors at NFS. Therefore, the best approach 
to uniquely identify a publication is by its title. Another reason for the complexity of the 
database is the same publication can appear on one or more faculty’s research page as 
well as the research areas/subareas. This is because a research area can have subareas and 
the same publication can exist in a research area as well as a subarea of a different research 
area. 
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m. APPLICATION PROCESS 


This chapter discusses the contents and process of the ITM on-line research 
catalog application. It concludes with a description of the various CGI scripts that 
comprises the catalog. 

A. APPLICATION CONTENTS 

The database content of the on-line research catalog consists of 5 sections: 
faculty research pages, faculty research areas, research centers and laboratories, recent 
research sponsors, and recent publications. A discussion of each section is presented 
below. 

The faculty research page provides professional information about each ITM 
professor. It identifies and describes their research specialty, explains the relevance of 
their research to DOD/DON, and list their pertinent research publications. 

The faculty research areas provide brief descriptions of the ITM group’s research 
efforts. Some research areas are too broad to adequately describe some of the professor’s 
research efforts and are broken into subareas. The research areas and subareas 
(unbulleted items) are arranged as follows; 

• Database Management Systems 

• Decision Support and Expert Systems 

Decision Making in Dynamic Environments 
Decision Support Systems 
Instructional Multimedia Systems 

• Model Management 
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• Networks and Communications 

Distributed Systems and Computer Networks 
Telecommunication Systems 

• Software Engineering and Applications Development 

Application Development 
Software Engineering and Project Management 
Software Metrics 
Software Reliability 

The research centers and laboratories' section provide a description of each ITM 
center or lab. It explains why each center or lab was formed, and list a point of contact. 

The research sponsors section gives recognition to sponsors of recent research 
projects. Sponsors are listed in alphabetical order. 

The recent pubUcations' section displays a listing of all recent publications by the 
ITM group. This section consists of the publications from all the faculty research pages. 
B. DATA FLOW DIAGRAMS 

This section uses data flow diagrams (DFDs) to depict the flow of data through 
the system and the processes that are performed by the system. As shown in Figures 4 
and 5, the on-line research catalog is designed for three types of users: ITM professors, 
system administrator, and other WWW clients. The ITM professors and system 
administrator both have query and update privileges. The other WWW clients have only 
query privilege. 
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Updates 



Figure 4. Context Diagram For ITM Research Catalog 



Figure 5. Overview DFD For ITM Research Catalog 
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The two types of users that will maintain the research catalog are the system 
administrator and ITM professors. Figure 6 shows that the ITM professors can only 
maintain certain parts of the catalog, whereas, the system administrator can maintain the 
entire catalog. A major user requirement of the catalog is to allow a professor to 
maintain information that specifically relates to his research page. In order to do this, 
state information about each professor passes between CGI scripts using a hidden field. A 
hidden field is an HTML form option that can pass data to CGI scripts without requiring 
the user to actually enter the data. The other areas of Figure 6, except for maintain 
systems account, are considered common areas, e.g., relate to more than one professor. 
For this reason, the system administrator is the only person allowed to update those areas 
for the purpose of keeping system integrity. 



Figure 6. Middle Level DFD For ITM Research Catalog 
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Figure 7 shows the add, modify, and delete research page processes. What is not 
shown from the figure is a professor must include his faculty information when he adds a 
research page and if he deletes a research page, he also deletes his faculty information. 
This is done to prevent a research page from existing without its respective faculty 
information. Although faculty information is part of a research page, modification of a 
research page does not include modification of faculty information, that is a separate 
process as shown in Figure 8. 



Figure 7. Primitive Level DFD For Maintaing a Research Page 
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Figure 8. Primitive Level DFD For Maintaing Faculty Information 
Figure 9 shows the publication process. A professor can add or delete a 
publication only from his research page and desired research areas. He can not completely 
delete a publication entirely from the research catalog. The logic for this is best explained 
using the following scenario. Professor 1 may have co-authored a publication with 
professor 2 who has the publication on his research page. If professor 1 is allowed to 
delete the publication entirely, than it will affect professor 2’s research page. Only the 
system administrator can delete a publication entirely from the catalog assuming all 
authors involved agree. There is no publication modification process because the title of 
the publication is its key and cannot be modified. 
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Figure 9. Primitive Level DFD For Maintaining Publications 

One of the objectives of the on-line research catalog is to attract sponsors to 
financially assist the ITM professors in their research efforts. Each professor can add and 
delete his respective sponsors, Figure 10. 



Figure 10. Primitive Level DFD For Maintaining Sponsors 
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A professor must have an account in order to maintain his own research page. An 
account contains a professor’s unique faculty code and password that he enters to log into 
the system. The system administrator is the only person that can add or delete an account 
for a professor, Figure 11. Once a professor has an account, he can modify it. Figure 12. 
Modifying a faculty account only entails changing the password; the faculty code cannot 
be changed. If a professor’s account is deleted, he can no longer log into the catalog to 
maintain his research information. Therefore, the system administrator should only delete 
a faculty account on the departure of the respective professor from the ITM group. 
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Figure 11. Primitive Level DFD For Maintaining Faculty Account 
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Figure 12. Primitive Level DFD For Maintaing Faculty Account 

The remaining Figures, 13-15, are only processes that are only maintained by the 
system administrator and are self-explanatory. 



Figure 13. Primitive Level DFD For Maintaining System Account 
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Figure 14. Primitive Level DFD For Maintaining Research Centers/Labs 



Figure 15. Primitive Level DFD For Maintaing System Account 


18 












































































C. CGI SCRIPTS DESCRIPTION 


CGI scripts are short programs that execute in real time and reside in a special 
directory of a web server. They lend themselves particularly well to the task of accessing 
a database. CGI scripts are written in different programming languages. The on-line 
research catalog scripts are written in Delphi and can be categorized into the following 
groups: add, modify, browse, and delete. 

1. Add Scripts 

These scripts display an HTML input form to collect information on what the user 
wants to add, i.e., a research page, publication, etc., to the database. Once the 
information is collected another form accepts the data and adds it to the appropriate tables 
in the database. 

2. Modify Scripts 

These scripts use an HTML form to display current information about the item the 
users want to update. The user can make any desired changes on the form. Once 
submitted, it is received by another script that takes this new data and modifies the 
appropriate tables. 

3. Browse Scripts 

The browse scripts do not accept any data, just displays it. The browse research 
centers/labs are the only browse scripts that have links to other HTML pages. 
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4. Delete Scripts 

There are two types of delete scripts: one that permanently removes the 
information from the database and the other just removes it from being displayed. The 
latter applies only in the case of publications. For example, a publication can be deleted 
from a research page and/or research area. The publication still exists in the database, but 
is removed from the selected item(s). If a publication needs to be deleted entirely from the 
database, only the system administrator has the privilege to perform that task. 
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IV. THE USER INTERFACE 


This chapter describes the main user interfaces for the three different types of on¬ 
line research catalog users; WWW clients, ITM faculty, and system administrator. All 
users with a frames capable browser will first access the welcome page. Figure 16. Then, 
depending on the type of user they are, will mainly interact with one of three menus. 






File Edit View Go Bookmarks Options Directory Window Help 





A .s 




Figure 16. Welcome Menu 


A. WWW CLIENTS 

The WWW clients can view the contents of the research catalog by selecting the 
browse catalog option from Figure 16. The Browse Menu, Figure 17, is then displayed to 
allow the user to select the items he wants to view. 
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Figure 17. Browse Menu 


22 







































































If a user wants to view a faculty research page, he can select from the drop down 
list of ITM professors. The drop down list is in alphabetical order by last name. 

The display research area option, lets a user view the several broad ITM research 
areas. If a user selects a research area that has subareas, he is asked to pick a research 
subarea to view. A research area and research subarea have identical structures, i.e., they 
both have a brief description and publications associated with them. 

The research centers and labs describe current research projects by some of the 
ITM faculty. A user can view a research center or lab by selecting the browse research 
centers and labs option. 

One of the main objectives of the research catalog is to solicit sponsors for further 
research. A list of the current research sponsors is viewed by selecting “Sponsors” on the 
Browse Menu. 

The ITM professors have written many publications documenting their research 
knowledge and findings. They can be viewed by selecting “Publications.” 

B. ITM FACULTY 

A professor can access the catalog to browse its contents or update his research 
information. If the latter, he has to log into the catalog. Each faculty member is given a 
faculty code and password that must be entered correctly to access the available 
selections on the Catalog Menu, Figure 18. 
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Figure 18. The Catalog Menu 
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C. SYSTEM ADMINISTRATOR 


The system administrator must log into the catalog using his login ID and 
password to perform any maintenance tasks. Once he is successfully logged in. Figure 
19, is displayed for him to choose his selections. The system administrator’s “Main 
Menu” has more options available than the other two menus, because he has the 
capabilities of those menus as well as additional ones to maintain the catalog’s integrity. 
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Figure 19. Main Menu 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

This thesis is a major improvement to Barbara Franklin’s static research catalog 
web pages. It describes the development and implementation of a relational database 
approach to easily and quickly maintain the catalog. This seemed to be the most logical 
solution, since there are relations between the common fields that must be navigable by the 
system; these relations are most effectively accomplished by relational join operations. By 
having the application on a WWW server, it makes the research catalog possible to be 
viewed by potential sponsors, various DOD agencies, and millions of people who have a 
fi-ames capable browser and access to the WWW. Another important advantage of having 
the catalog on a server is; (a) it can be maintained by the ITM faculty, and (b) can be done 
so, regardless of their operating platform. This is due to the TCP/IP protocol that the 
WWW uses. TCP/IP allows reasonably efficient and error-fi’ee transmission between 
different systems[Ref 2]. 

The structured techniques used were critical in the design and implementation of 
the application. The key to the successful completion of the catalog is the perseverance 
and over 300 arduous hours the author spent self-learning and programming in Delphi. 

The application system developed in this thesis will require the attention of a 
system administrator to function properly. It is recommended that Christine Smith who 
currently manages the web pages for the SM Department, be the system administrator for 
the application. Ideally, access to the catalog should occur via a link from the SM 
Department’s home page. This would provide the best means for the ITM professors and 
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other WWW clients to use the system. Next, the professors need to be informed about the 
system and given an account. Once this is done, the professors can use the system at then- 
leisure. The author does not anticipate any need for formal training on how to use the 
system; the users' interfaces are pretty intuitive. The professors should notify the system 
administrator if they have any questions, problems, or changes they desire that only the 
system administrator can perform. 

B. RECOMMENDATIONS 

Future work is needed to make the on-line research catalog an even better product. 
The current catalog does not use dynamic SQL statements or has search capabilities. 
Dynamic SQL statements are statements that are not bound at design-time, but instead are 
bound when executed by using parameterized SQL statements[Ref 3]. Parameterized 
queries give you more flexibility in varying the condition on which you base your SQL 
statements[Ref 3]. A search feature would greatly assist users in immediately finding the 
exact information they want. As the system stands now, a user has to browse through the 
catalog to ascertain if it contains any information he desires. Also, counters regarding the 
number of times the catalog pages have been accessed would provide statistical 
information on the exposure of the research catalog. 
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APPENDIX. CGI SCRIPTS 


A. WWW CLIENTS SCRIPTS 

1. Browse Catalog Menu Script 
unit Browcatl; 
interface 
uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGBEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

DataSourceS: TDataSource; 

QueryS; TQuery; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
begin 

with CGIEnvDatal do 
begin 
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{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
appIication.processMessages; 

createStdout; 

sendPrologue; 

{standard header information} 

send( '<HTMLXHEAD>'); 

sendTitle( Browse Catalog Menu'); 

send( '</HEAD><BODY BGCOLOR="ADEAEA">'); 

send ('<centerXHl>Browse Catalog Menu</Hlx/center>'); 

{List items that a user can browse} 
sendHR; 

send('<H3>nM Faculty Research Pages</U3>'); 
send('<center>'); 

send(’<TABLE BORDER=5 CELLPADDING=5>’); 

send(’<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgj-win/browse/dsp_pge.exe">'); 
send^<TR>'); 

sendC<TD ALIGN="CENTER"xSELECTNAME="FacultyCode’' TYPE="text" SIZE=1>’); 

with Query 1 do {List faculty options by last name} 
begin 
close; 

SQL.Add('SELECT FacultyCode, LastName'); 

SgL-AddCFROM Faculty ’); 

SQL.Add(’ORDER BY LastName’); 
open; 

first; {puts ciu'sor on first record in answer table} 

while not EOF do 
begin 

send(’<OPTION VALUE= '"+FieldByName(TacultyCode’).AsStringf 
send(FieldByName('LastName').AsString); 
next; {puts cursor on next record} 
end; 
close; 

end; {End Query 1} 
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send(’</SELECT></TDx/TR>'); 
send('<TRxTD ALIGN="CENTER">'); 

sendC<INPUT TYPE=SUBMIT VALUE="Submit Selection" ALIGN="MIDDLE">'); 

send('</TDx/FORMx^ABLE>’); 

send('</center>'); 

sendHR; 

send('<H3> ITM Faculty Research Areas</H3>'); 
send('<center>'); 

sendC<TABLEBORDER=5 CELLPADDING=5>'); 

send(’<FORM METHOD = POST ACTION='); 
send("'http;//131.120.39.65/cgi-’win/browse/dsp_area.exe">'); 
send('<TR>’); 

send('<TD ALIGN="CENTER"xSELECT NAME="ResearchAreaTitle" TYPE="text" 
SIZE=1>'); 


with Query2 do (List Research Areas Options} 
begin 
close; 

SQL.Add(’SELECT DISTINCT ResearchAreaTitleO; 

SQL. AddCFROM RES_AREA'); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName(ResearchAreaTitle'). AsString+"'>'); 
send(FieldByName(ResearchAreaTitle').AsString); 
next; (puts cursor on next record} 
end; 
close; 

end; (End Query 2} 
send('<SELECT><yTD></TR>'); 
send('<TRxTD ALIGN="CENTER">’); 

send('<INPUT TYPE=SUBMIT VALUE=" Submit Selection" ALIGN="MIDDLE">'); 

send('</TDx/FORMx/TABLE>'); 

send('</center>'); 
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sendHR; 


send('<H3>Research Centers and Labs</H3>'); 
send('<center>'); 

sendC<TABLEB0RDER=5 CELLPADDING=5>'); 

sendC<FORM METHOD = POST ACTION= ’); 
send("'http://131.120.39.65/cgi-win/browse/brs_labs.exe">'); 
send('<TR>'); 

sendC<TD ALIGN="CENTER"xSELECTNAME="CenterorLab" TYPE="text’' SIZE=1>'); 


with Query3 do {List Research Centers And Labs Options} 
begin 
close; 

SQL.Add(’SELECT CenterorLab'); 

SQL. Add(TROM RES_CENT'); 
open; 

first; {puts cursor on first record in answer table) 

while not EOF do 
begin 

send('<OPTION VALUE= ’"+FieldByName(’CenterorLab’). AsString+"'>’); 

send(FieldByName('CenterorLab').AsString); 
next; {puts cursor on next record) 
end; 
close; 

end; {End Query 3) 
send('</SELECTx/TDx/TR>'); 
send(’<TRxTD ALIGN="CENTER">'); 

sendC<INPUT TYPE=SUBMIT VALUE="Submit Selection" ALIGN="MIDDLE">’); 

sendC</TDx/FORMX7TABLE>’); 

send('</center>'); 

sendHR; 

send('<H3>Other Areas</H3>'); 
send('<CENTER>'); 

sendC<TABLE BORDER=5 CELLPADDING=5>'); 
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send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/browse/brs_spon.exe''>') 
send('<TD ALIGN="CENTER"xiNPUT TYPE=SUBMIT 
VALUE="Sponsors"x/TDX/FORM>'); 


send(’<FORM METHOD = POST ACTION=’); 
send("'http://131.120.39.65/cgi-win/browse/brs_pubs.exe">') 
send(’<TD ALIGN="CENTER’'xiNPUT TYPE=SUBMIT 
VALUE="PubUcations"x/TDXFORM>’); 

sendC</TRx/TABLEx/CENTER>’); 

send( '</BODYx/HTML>’); 
closeStdout; 
close APP(application); 
end; 
end; 
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2. Browse ITM Faculty Research Page 
unit Dsp_pgel; 
interface 
uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Queryl: TQuery; 

CGIDB2: TCGIDB; 

DataSource2; TDataSource; 

Query2: TQuery; 

CGIDB3; TCGIDB; 

DataSourceS; TDataSource; 

QueryS: TQuery; 

CGIDB4: TCGIDB; 

DataSource4: TDataSource; 

Query4; TQuery; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *DFM} 

procedure TForml .FormCreate(Sender: TObject); 
var 

FacultyCode: string; 
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begin 


with CGIEnvDatal do 
begin 

(required when this program runs under WebSite} 
websitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

FacultyCode := GetSmallFieldCFacultyCode'); 

(build research page using join of necessary tables} 
with query 1 do 
begin 
close; 

SQL. clear; 

SQL.Add('SELECT DISTINCT *'); 

SQL. Add(TROM FACULTY,RES_PAGE'); 

SQL.Add('WHERE RES_PAGE.FacultyCode = FACULTY.FacultyCode'); 

SQL.Add('AND RES_PAGE.FacultyCode = + FacultyCode 

open; 

send( '<HTMLXHEAD>’); 

sendTitle( Display Research Page'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

send('<centerxHl>ITM Faculty Research Page</hlx/center>'); 
if FacultyCode = 'SM/Ah' then 

send('<IMG ALIGN=Left SRC="http;//131.120.39.65/ITM/Pictures/Ah.gif’>') 
else if FacultyCode = 'SM/Bd' then 

sendC<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures/Bd.gif’>') 
else if FacultyCode = 'SM/Bh' then 

send('<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures/Bh.gif'>') 
else if FacultyCode = 'SM/Bu' then 

send('<IMG ALIGN=Lefl SRC="http://131.120.39.65/ITM/Pictures/Bu.gif'>') 
else if FacultyCode = 'SMDk' then 

send('<IMG ALIGN=Left SRC="http;//131.120.39.65/ITM/PicturesDk.gif'>') 
else if FacultyCode = 'SM/Ey* then 

send('<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures/Ey.gif'>') 
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else if FacultyCode = 'SM/Fw* then 

send(’<IMG ALIGN=Left SRC="http.7/131.120.39.65/ITM/Pictures/Fw.gif'>’) 
else if FacultyCode = 'SM/Hg' then 

send('<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures^g.gif’>’) 
else if FacultyCode = 'SM/Ka' then 

sendC<IMG ALIGN=Left SRC="http;//131.120.39.65/ITM/Pictures/Ka.gif’>') 
else if FacultyCode = 'SM/Ra' then 

sendC<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures/Ra.gif'>') 
else if FacultyCode = 'SM/Se* then 

send(’<IMG ALIGN=Left SRC="http;//131.120.39.65/rrM/Pictures/Se.gif'>’) 
else if FacultyCode = 'SM/Ss' then 

send(’<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures/Ss.gif’>') 
else if FacultyCode = 'SM/Sr* then 

sendC<IMG ALIGN=Left SRC="http://131.120.39.65/ITM/Pictures/Sr.gif’>'); 

send('<UL>'); 

sendCFieldByNameCLastName^AsString); 

send(FieldByName('FirstName’).AsString); 

send(FieldByNanie('MiddleInitial').AsString); 

send('<BR>'); 

send(FieldByName('Title'). AsString); 
send('<BR>'); 

send(FieldByName('Degree’). AsString); 
send (','); 

send(FieldByName('Schoor). AsString); 
send(','); 

send(FieldByName('GradYear') .AsString); 
send('<BR>’); 

sendOFieldByNameCPhoneAreaCode'). AsString); 

send(FieldByName(ThoneLocalNumber’).AsString); 

sendC<BR>’); 

send(FieldByName('Email'). AsString); 
send(’<BR>’); 

send^ieldByNameCHomePage’). AsString); 
sendC</ULXBR CLEAR=LEFT>'); 


send('<BR>'); 

send('<P>'); 

send('<BxH3>Research Areas</H3x/B>'); 

CGIDB1 .SendMemo(FieldByName('ResearchAreas')); 

sendC<P>'); 

send('<B><H3>Research Description</H3x/B>'); 
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CGDDB1. Sen(iMemo(FieIdByName('ResearchDescription')); 
send('<P>'); 

send('<BxH3>ReIevance to DOD/DON<yH3x/B>'); 

CGIDB1. SendMemo(FieIdByName('RelevancetoDOD/DON')); 

Query 1. close; 
end; {Query 1} 

Send('<P>’); 

Send('<BxH3>RecentPublications</H3x/B>'); 

With query! do 
begin 
close; 

SQL.clear; 

SQL.AddCSELECT * '); 

SQL. Add(TROM PAGEPUB,PUBS, JOURNAL’); 
SQL.Add('WHERE PAGEPUB.PubTitle = PUBS.PubTitle'); 
SQL.Add(’AND PUBS.PubTitle = JOURNAL.PubTitle’); 
SQL.AddCAND PAGEPUB .FacuItyCode =+ FacuItyCode +""); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB2.SendMemo(FieldByName('Author')); 

send(','); 

send(""); 

send(FieIdByName('PubTitIe').AsString); 

sendC",’); 

send('<i>'); 

send(FieIdByName('JoumalName').AsString); 

send('<yi>'); 

If FieldBynameCVolume').AsString o "then 
begin 

sendCVol'); 

send(FieIdByName('Volume'). AsString); 
end; 

If FieIdByname('Number').AsString o "then 

begin 

sendCNo'); 

sendlFieldByNameCNumber'). AsString); 
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end; 

send(FieldByName('PubMonth').AsString); 

send(FieldByName('PubYear').AsString); 

If FieldByname('Pages').AsString o "then 

begin 

send(':'); 

send(FieldByName('Pages').AsString); 

end; 

send(FieldByN ameCNote'). AsString); 


send(’<BR>'); 

send('<BR>’); 

next; {puts cursor on next record} 
end; 

Query2.close; 
end; (Query 2} 

With queryS do 
begin 
close; 

SQL. clear; 

SQL.AddCSELECT * ’); 

SQL.Add(TROM PAGEPUB,PUBS,OTHERPUB’); 
SQL.AddCWHERE PAGEPUBPubTitle = PUBS.PubTitle’); 
SQL.Add(’AND PUBS.PubTitle = OTHERPUB.PubTitle’); 
SQL.AddCAND PAGEPUB.FacultyCode =+ FacultyCode +""); 
open; 

first; {puts cursor on first record in answer table} 
while not EOF do 
begin 

CGIDB3. SendMemo(FieldByName( Author')); 

sendC,'); 

send(""); 

send(FieldByName(TubTitle'). AsString); 
sendC",'); 

CGIDB3. SendMemo(FieldByName('Citation')); 
send(FieldByN ameCPubMonth'). AsString); 
send(FieldByN ame^Thab Year*). AsString); 


sendC<BR>’); 

send('<BR>'); 

next; {puts cursor on next record} 
end; 
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QueryS. close; 
end; {QueryS} 

With query4 do 
begin 
close; 

SQL.clear; 

SQL.Add(’SELECT *'); 

SQL. Add^TROM PAGEPUB,PUBS,BOOKS’); 
SQL.AddCWHERE PAGEPUB.PubTitle = PUBS.PubTitle'); 
SQL.AddCAND PUBS.PubTitle = BOOKS.PubTitle'); 
SQL.Add('AND PAGEPUB.FacultyCode = + FacultyCode +""); 
open; 

first; (puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB4.SendMemo(FieldByName(Author')); 

send(','); 

send(""); 

send(FieldByName('PubTitle').AsString); 

sendC",'); 

sendOFieldByName('Volume').AsString); 

send(FieldByName('Series').AsString); 

send(FieldByName(Edition').AsString); 

send(FieldByName('Publisher').AsString); 

send(FieldByName('Street').AsString); 

send(FieldByName('City').AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip').AsString); 

send(FieldByName(PubMonth').AsString); 

send^ieldByName(PubYear’).AsString); 


sendC<BR>'); 

send('<BR>'); 

next; {puts cursor on next record} 
end; 

Query4. close; 
end; {Query4} 

send('<p>'); 

sendHR; 

send('<p>'); 
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{send user back to Browse Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input type="submit" value="Browse Catalog Menu">'); 
send('</form>’); 
send('</CENTER>’); 

send( '</BODYx/ErrML>’); 

closeStdout; 
closeApp( application ); 

end; 

end; 

end. 
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3. Browse Research Areas 


unit Dspareas; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Queryl; TQuery; 

CGIDB2; TCGIDB; 

DataSourcel: TDataSource; 

Queryl: TQuery; 

DataSourceS: TDataSource; 

Tablel: TTable; 

CGIDB3: TCGIDB; 

DataSource4: TDataSource; 

QueryS: TQuery; 

CGIDB4: TCGIDB; 

DataSourceS: TDataSource; 

Query4: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 
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ResearchAreaTitle: string; 

SubAreasExist : string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
websitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

ResearchAreaTitle ;= GetSmallFieldCResearchAreaTitle'); 

send( ’<HTMLXHEAD>'); 
sendTitle( Display Research Areas'); 
send( ’</HEADXBODYBGCOLOR="ADEAEA">'); 
send('<centerXHl>ITM Faculty Research Areas</hl>^center>'); 

with Tablel do {Search Table for record to be modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist := Tablel.FieldByName('SubAreas').AsString; 
Tablel.close; 

If SubAreasExist = 'Yes' then 
begin 

send('<h3>The research area you selected to browse has research'); 
send('subareas. Choose the research subarea you want to browse.</h3>'); 
send('<P>'); 


send('<center>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 
send('<FORM METHOD = POST ACTION='); 
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send(’"http://131.120.39.65/cgi-wiii/browse/pub2sub.exe">'); 
send('<TR>'); 

sendC<TDxSELECTNAME="ResearchSubAreaTitle" TYPE="text'’ SIZE=1>’); 


with Query 1 do 
begin 
close; 

SQL.AddCSELECT RES_SUBAResearchSubAreaTitle'); 

SQL.AddCFROM RES_SUBA'); 

SPL-Add^WHERE RES_SUBAResearchAreaTitle = + ResearchAreaTitle + 

open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OP'nON VALUE= '"+FieldByName('ResearchSubAreaTitle').AsString+"'>'); 
send(FieldByName('ResearchSubAreaTitle').AsString); 
next; (puts cursor on next record} 
end; 

Query 1. close; 
end; 

send('<ySELECTx/TDx/TR>'); 

send('</TABLE>'); 

sendC<I]SIPUT TYPE=SUBMIT VALUE=" Submit Information">'); 
send('</FORM>'); 

send('<P>'); 

send('<FORM method=post action="'+ 

'http;//131.120.39.65/cgi-win/browse/browscat.exe">'); 

send('<input type=" submit" value="Cancel, Return to Browse Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 

else (no subareas} 

begin (build research page using join of necessary tables} 
with queryl do 
begin 
close; 
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SQL.clear; 

SQL.AddCSELECT DISTINCT *'); 

SQL. Add(TROM RES_AREA); 

SQL.Add^WHERE RES_AREA.ResearchAreaTitle = + ResearchAreaTitle 

open; 

send('<B>'); 

send(FieIdByName('ResearchAreaTitle').AsString); 

send('</B>'); 

send('<P>'); 

CGIDB1. SendMemo(FieldByName('ResearchAreaBrief)); 
send('<P>'); 
close; 
end; 

send('<H4>Publications :</H4>'); 
send('<P>'); 

With query2 do 
begin 
close; 

SQL.clear; 

SQL.AddCSELECT *'); 

SQL. AddCFROMPUBAREA,PUBS,JOURNAL'); 

SQL.Add('WHERE PUBAREAPubThle = PUBS.PubTitle'); 

SQL.AddCAND PUBSPubTitle = JOURNAL.PubTitle'); 

SQL.Add('AND PUBAREA.ResearchAreaTitle =+ ResearchAreaTitle +""); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB2.SendMemo(FieldByName('Author*)); 

sendC,'); 

send(""); 

send(FieldByName('PubTitle').AsString); 

send("','); 

send('<i>')i 

send(FieldByName('JoumalName').AsString); 

send('</i>'); 

If FieldBynameC Volume'). AsString o "then 
begin 

send('Vol'); 
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send(FieldByName('Volume').AsString); 

end; 

If FieldByname('Number').AsString o "then 

begin 

send(TSfo'); 

send(FieldByName(TSiumber').AsString); 

end; 

send(FieldByName('PubMonth').AsString); 

send(FieldByName('PubYear').AsStrmg); 

If FieldBynameCPages^AsString o "then 

begin 

sendC:'); 

send(FieldByName('Pages').AsString); 

end; 

send(FieldByName(TSrote').AsString); 


send('<BR>*); 

send('<BR>*); 

next; {puts cursor on next record} 
end; 

close; (close query 2} 
end; 

With queryS do 
begin 
close; 

SQL. clear; 

SQL.AddCSELECT *'); 

SQL. AddCFROM PUB AREA,PUBS,BOOKS'); 

SQL.AddCWHERE PUBAREA.PubTitle = PUBS.PubTitle'); 

SQL. AddCAND PUBS.PubTitle = BOOKS .PubTitle'); 

SQL. Add('AND PUBAREA.ResearchAreaTitle = + ResearchAreaXitle +""); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB4.SendMemo(FieldByName('Author*)); 

send(','); 

send(""); 

send(FieldByName(PubTitle'). AsString); 
send('",'); 

send(FieldByNanie('V olume') .AsString); 
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send(FieldByName(’Series’).AsString); 

send(FieldByName('Edition').AsString); 

send(FieldByName('Publisher').AsString); 

send(FieldByName('Street').AsString); 

send(FieldByName('City').AsString); 

send(FieldByName('State').AsString); 

send(FieldByName('Zip').AsString); 

send(FieldByName('PubMonth').AsString); 

send(FieldByName('PubYear').AsString); 


sendC<BR>’); 

send('<BR>'); 

next; {puts cursor on next record) 
end; 

close; {Query 3} 
end; 

With query4 do 
begin 
close; 

SQL. clear; 

SQL.Add('SELECT *'); 

SQL. Add(TROM PUBAREA,PUBS,OTHERPUB’); 

SQL. AddCWHERE PUBAREA.PubTitle = PUBS.PubTitle’); 

SQL.Add('AND PUBS-PubTitle = OTHERPUB.PubTitle'); 

SQL. Add('AND PUBAREA.ResearchAreaTitle = + ResearchAreaTitle +""); 

open; 

first; {puts cursor on first record in answer table) 

while not EOF do 

begin 

CGIDB4.SendMemo(FieldByName('Author')); 

send(’,'); 

send(""); 

send(FieldByName('PubTitle').AsString); 

send("’,’); 

CGIDB4.SendMemo(FieldByName('Citation')); 

send(FieldByName('PubMonth').AsString); 

send(FieldByName('PubYear').AsString); 


send('<BR>'); 

send('<BR>'); 

next; {puts cursor on next record) 
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end; 

close; 

end; 

sendHR; 

{send user back to Browse Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win^rowse^rowscat.exe''>'); 
send('<input type="submit" value=" Browse Menu">'); 
send('</form>'); 
send('</CENTER>'); 

end; {End Else Part} 

send( '</BODYx/HTML>’); 

closeStdout; 

closeApp( application ); 

end; 

end; 

end. 

{ Browse Research SubAreas} 

unit Pub2subl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgidb, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

DataSourcel; TDataSource; 

Queryl: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

CGIDB 1; TCGIDB; 

CGIDB2: TCGIDB; 
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CGIDB3; TCGIDB; 

DataSourceS; TDataSource; 

QueryS: TQuery; 

CGIDB4: TCGIDB; 

DataSource4; TDataSource; 

Query4: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ResearchSubAreaTitle : string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
websitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

ResearchSubAreaTitle := GetSmallField(ResearchSubAreaTitle'); 

send( ’<HTMLXHEAD>'); 

sendTitle( Display Research SubAreas*); 

send( '</HEADXBODY BGCOLOR="ADEAEA">'); 

send('<centerXHl>ITM Faculty Research SubArea</hlx/center>'); 
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{build research page using join of necessary tables} 
with queryl do 
begin 
close; 

SQL.clear; 

SQL.AddCSELECT DISTINCT *'); 

SQLAddCFROM RES_SUBA); 

SQL.Add('WHERE RES_SUBAResearchSubAreaTitle = + ResearchSubAreaTitle 
open; 

send(’<B>’); 

send(FieldByName('ResearchSubAreaTitle').AsString); 

send('</B>'); 

send('<P>'); 

CGIDB1. SendMemo(FieldByName('ResearchSubAreaBrief)); 
send('<P>’); 
close; 
end; 

send('<H4>Publications;</H4>'); 

send('<P>’); 


With query2 do 
begin 
close; 

SQL.clear; 

SQL.AddCSELECT * ’); 

SQL.Add^TFROM PL1BSAREA,PUBS,J0URNAL’); 

SQL.Add^WHERE PUBSAREAPubTitle = PUBS.PubTitle'); 

SQL.AddCAND PUBS.PubTitle = JOURNAL.PubTitle’); 

SQL.Add('AND PUBS ARE AResearchSubAreaTitle = + ResearchSubAreaTitle +""); 
open; 

first; {puts cursor on first record in answer table) 


while not EOF do 
begin 

CGIDB2.SendMemo(FieldByName( Author*)); 

sendC,'); 

send(""); 

send(FieldByName(TubTitle').AsString); 

sendC",’); 

send('<i>'); 

send(FieldByName('JoumarN[ame').AsString); 
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send(’</i>'); 

If FieldByname('Volume').AsString o "then 
begin 

send(’Vol’); 

send(FieldByNanie('Volume').AsString); 

end; 

If FieldByname(TSrumber').AsString o "then 

begin 

sendCNo'); 

send(FieldByName('Number').AsString); 

end; 

send(FieldByName('PubMonth').AsString); 

send(FieldByName('PubYear').AsString); 

If FieldByname('Pages').AsString o "then 

begin 

send(';'); 

send(FieldByName('Pages').AsString); 

end; 

send(FieldByName('Note').AsString); 

send('<BR>'); 

send('<BR>'); 

next; {puts cursor on next record} 
end; 

close; {close query 2} 
end; 

With queryS do 
begin 
close; 

SQL. clear; 

SQL.Add('SELECT * ’); 

SQL.Add(TROM PUBSAREA,PUBS,BOOKS'); 

SQL.Add^WHERE PUBSAREA.PubTitle = PUBS.PubTitle'); 

SQL.AddOAND PUBS.PubTitle = BOOKS.PubTitle'); 

SQL.Add('AND PUBS ARE AResearchSubAreaTitle = + ResearchSubAreaTitle +""); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB4.SendMemo(FieldByName('Author*)); 
send(V); 
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sendC’"); 

send(FieldByName('PubTitle'). AsString); 
send("’,'); 

send(FieldByName('Volume'). AsString); 
send(FieldByName('Series'). AsString); 
send(FieldByName('Edition').AsString); 
send(FieldByName('Publisher^. AsString); 
send(FieldByName('Street').AsString); 
send(FieldByName('City^. AsString); 
send(FieldByName('State'). AsString); 
send(FieldByName('Zip'). AsString); 
send(FieldByName('PubMonth').AsString); 
send(FieldByName('PubYear'). AsString); 

send('<BR>’); 

send(’<BR>'); 

next; {puts cursor on next record) 
end; 

close; (Query 3} 
end; 

With query4 do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT *'); 

SQL.Add(TROM PUBSAREA,PUBS,OTHERPUB’); 

SQL.Add('WHERE PUBS ARE A.PubTitle = PUBS.PubTitle’); 

SQL. Add('AND PUBS.PubTitle = OTnERPUB.PubTitle*); 

SQL.Add('AND PUBS ARE A.ResearchSubAreaTitle = + ResearchSubAreaTitle +""); 

open; 

first; (puts cursor on first record in answer table) 
while not EOF do 
begin 

CGIDB4.SendMemo(FieldByName('Author*)); 

send(','); 

send(""); 

send(FieldByName('PubTitle'). AsString); 
sendC*','); 

CGIDB4.SendMemo(FieldByName('Citation')); 
send(FieldByName(PubMonth'). AsString); 
send(FieldByName(Pub Y ear*). AsString); 
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send('<BR>'); 

send('<BR>'); 

next; {puts cursor on next record} 
end; 
close; 
end; 

sendHR; 

{send user back to Browse Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input type="subniit" value=" Browse Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 

send( '</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; 
end; 
end. 
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4. Browse Research Centers/Labs 


unit Brslabs; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TFonn) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2; TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
var 

CenterorLab: string; 
begin 

with CGIEnvDatal do 
begin 

websitelNlFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
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application.processMessages; 

createStdout; 

sendPrologue; 

CenterorLab := GetSmallField('CenterorLab'); 

send( '<HTMLxHEAD>'); 

sendTitle( Display Research Areas'); 

send( ’</HEADxBODY BGCOLOR="ADEAEA">'); 

with query 1 do 
begin 
close; 

SQL. clear; 

SQL.Add('SELECT CenterorLab,CenterorLabOverview*); 

SQL. Add(’FROM RES_CENT'); 

SQL.Add('WHERE RES_CENT.CenterorLab = + CenterorLab +""); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<centerXB>'); 

send(FieldByName('CenterorLab').AsString); 

send('</B><Px/center>'); 

CGIDB1. SendMemo(FieldByName('CenterorLabOverview')); 
send('<P>'); 

next; (puts cursor on next record} 
end; 

Query 1.close; 
end; 

with query2 do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT * •); 

SQL. Add('FROM FACULTY, RES_CENr); 

SQL.AddC-WHERE FACULTY.FacultyCode = RES_CENT.FacultyCode'); 
SQL.AddCAND RES_CENT. CenterorLab =+ CenterorLab +""); 
open; 
first; 
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while not EOF do 
begin 

send(Tor additional information contact Professor'); 
send(FieldByName('FirstName').AsString); 
send(FieldByName('LastName').AsString); 
send('at'); 

send(FieldByName('PhoneAreaCode').AsString); 
send(FieldByName('PhoneLoca]Number').AsString); 
send('or'); 

send(FieldByName('Email').AsString); 
next; {puts cursor on next record} 
end; 

Query2.close; 

end; 

sendHR; 

send('<p>'); 


(send user back to Browse Menu} 

send('<CENTER>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win/browse^rowscat.exe">'); 
send('<input type="subniit" value=" Browse Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 

send( '</BODYxyHTML>'); 

closeStdout; 
closeApp( application ); 

end; 

end; 

end. 
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5. Browse Research Sponsors 


unit Brsspon; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1; TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 
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send( ■<HTMLXHEAD>'); 
sendTitle( "Browse Faculty Account'); 

send( '</HEADxBODY BGCOLOR="ADEAEA"xCENTER>'); 

with query 1 do 
begin 
close; 

SQL.clear; 

SQL.add('SELECT Activity'); 

SQL.addCFrom SPONSOR'); 
open; 

fieldByName ('Activity" ).displayLabel := 'Sponsors'; 
end; 

CGEDB1. drawT able; 
query 1. close; 


send('<P>'); 


send('<FORM method=post action='"+ 

'http://131.120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input type="subniit" value="Browse Catalog Menu">'); 
sendf</form>'); 
sendC</CENTER>'); 

send( '</BODYx/HTML>'); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 
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6. Browse Publications 


unit Brsjpubl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGBEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

CGIDB2; TCGIDB; 

CGIDB3: TCGIDB; 

DataSource2: TDataSource; 

DataSourceS: TDataSource; 

Query2: TQuery; 

QueryS; TQuery; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

websitelNIFilename := paramstr(l); 
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application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

{standard header information} 

send( '<HTMLXHEAD>'); 

sendTitle( "Display Publications'); 

send( '</HEADxBODYBGCOLOR="ADEAEA">'); 

Send('<centerXBXH3>Recent Publications</H3></Bx/center>'); 

With query 1 do 
begin 
close; 

SQL.clear; 

SQL.Add('SELECT *'); 

SQL.AddC'FROM PUBS,JOURNAL'); 

SQL.Add('WHERE PUBS.PubTitle = JOURNAL.PubTitle'); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB1 .SendMemo(FieldByName('Author")); 

send(','); 

send(""); 

send(FieldByName('PubTitle').AsString); 

sendC",'); 

send('<i>'); 

send(FieldByName('JoumalName').AsString); 

send('</i>'); 

If FieldByname('Volume'). AsString o "then 
begin 

sendCVol'); 

send(FieldByName('Volume').AsString); 

end; 

If FieldByname(Number').AsString o "then 

begin 

sendCNo'); 

send(FieldByName(Number'). AsString); 
end; 
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send(FieldByName('PubMonth').AsString); 
send(FieldByName('PubYear*). AsString); 

If FieldBynameCPages^AsString o "then 

begin 

send(':'); 

send(FieldByName(Tages').AsString); 

end; 

send(FieldByNanie('Note'). AsString); 

send('<BR>'); 

send('<BR>'); 

next; {puts cursor on next record} 
end; 

Query 1. close; 
end; (Query 1} 

With query2 do 
begin 
close; 

SQL. clear; 

SQL.Add('SELECT *'); 

SQL.Add(TROM PUBS,OTHERPUB'); 

SQL. AddCWHERE PUBS.PubTitle = OTHERPUB.PubTitle'); 
open; 

first; {puts cursor on first record in answer table} 
while not EOF do 
begin 

CGIDB2.SendMemo(FieldByName('Author')); 

sendC.’); 

sendC"'); 

send(FieldByNanie(PubTitle'). AsString); 

sendC".*); 

CGIDB2.SendMemo(FieldByName('Citation')); 
send(FieldByName(PubMonth'). AsString); 
send(FieldByName('PubYear'). AsString); 


send('<BR>'); 

sendC<BR>'); 

next; {puts cursor on next record} 
end; 

Query2. close; 
end; {Query 2} 
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With queryS do 
begin 
dose; 

SQL. dear; 

SQL.Add('SELECT *'); 

SQL. Add(TROM PUBS,BOOKS'); 

SQL.AddCWHERE PUBS.PubTitle = BOOKS.PubTitle'); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

CGIDB3. SendMemo(FieldByName('Author')); 

send(','); 

send(""); 

send(FieldByName('PubTitle').AsString); 

send('",'); 

send(FieldByName('Volume').AsString); 

send(FieldByName('Series').AsString); 

send(FieldByNanie('Edition').AsString); 

send(FieldByName('Publisher').AsString); 

send(FieldByName('Street').AsString); 

send(FieldByName('City'). AsString); 

send(FieldByName('State').AsString); 

send(FieldByNanie('Zip'). AsString); 

send(FieldByNanie('PubMonth'). AsString); 

send(FieldByNanie('PubYear').AsString); 


send('<BR>'); 

send('<BR>'); 

next; (puts cursor on next record} 
end; 

QueryS. close; 
end; {QueryS} 
send('<p>'); 
sendHR; 
send('<p>'); 

{send user back to Browse Menu} 

send('<CENTER>'); 

send('<FORM method=post action='"+ 

'http;//131.120.39.65/cgi-win/browse/browscat.exe">'); 
send('<input type=" submit" value="Browse Catalog Menu">'); 
send('</form>'); 
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sendC</CENTER>'); 


send( ’</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; 
end; 


B. ITM Faculty SCRIPTS 
1. Catalog Menu 

unit Catalog 1; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

procedure FonnCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender: TObject); 
var 

FacultyCode; string; 
begin 

with CGIEnvDatal do 
be^ 

{ required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
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application.processMessages; 


createStdout; 

sendPrologue; 

FacultyCode := getSmallFieldCFacultyCode'); 

{standard header information} 

send( ’<HTMLXHEAD>’); 

sendTitle( 'Catalog Menu'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

send ('<centerXHl>Catalog Menu</Hlx/center>'); 

(List research catalog items that a faculty member can maintain} 

sendHR; 

sendC<P>'); 

sendC<H2>Maintain Research Page;</H2>'); 
send('<CENTER>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 
send^"http://131.120.39.65/cgi-\vin/faculty/apgform.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<TD ALIGN="CENrER">'); 

send('<INPUT TYPE=SUBMIT VALUE="Add"x/TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http;//131.120.39.65/cgi-win/faculty/mpg_show.exe">'); 

send('<I]SIPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<TD ALIGN="CENTER">'); 

send('<I]SIPUT TYPE=SUBMIT VALUE="Modify"x/TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http;//131.120.39.65/cgi-win/faculty/dsp_pg.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<TD ALIGN="CENTER">'); 

send('<INPUT TYPE=SUBMIT VALUE="Browse"x/TDx7FORM>'); 


send('<FORM METHOD = POST ACTION='); 
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send("'http;//131.120.39.65/cgi-win/faculty/pg_chk.exe">'); 

sendC<INPUT TYPE="HIDDEN’' NAME="FacultyCode" VALUE=’"+FacultyCode+’">’); 
send('<TD ALIGN="CENTER">'); 

sendC<INPUT TYPE=SUBMIT VALUE="Delete”x/TDx/FORM>'); 

sendC</TRx/TABLEx/CENTER>’); 

send('<P>’); 

sendHR; 

send(’<P>’); 

send('<H2>Maintain Publications:</H2>'); 


send('<CENTER> *); 

send('<TABLEB0RDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION=’); 
send("'http;//131.120.39.65/cgi-win/faculty/pub_rrb.exe">'); 

send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode” VALUE=’"+FacultyCode4-"'>'); 
send('<TD ALIGN="CENTER">'); 

send('<INPUT TYPE=SUBMIT VALUE="Add"x/TDx/FORM>'); 

send('<FORM METHOD = POST ACTION=’); 
send("'http://131.120.39.65/cgi-\vin/faculty^rsJpub.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode’' VALUE=’"+FacultyCode+"'>’); 
send(’<TD ALIGN="CENTER’'>’); 

send('<INPUT TYPE=SUBMIT VALUE="Browse"x/TDx/FORM>'); 

send('<FORM METHOD = POST ACTION= •); 
send("'http://131.120.39.65/cgi-\vin/faculty/dpub_rrb.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME='’FacultyCode" VALUE="’+FacuItyCode+"'>'); 
send('<TD ALIGN="CENTER">'); 

send('<INPUT TYPE=SUBMIT VALUE="Delete"x/TDx/FORM>'); 
send('</TRx/TABLExycENTER>'); 


send('<p>'); 

sendHR; 

send('<p>’); 

send('<H2>Maintain Research Sponsors:</H2>'); 
send('<CENTER>'); 
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send('<TABLEB0RDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/faculty/aspon_fin.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE=’"+FacultyCode+"'>'); 
send('<TD ALIGN=''CENTER">’); 

send('<INPUT TYPE=SUBMIT VALUE=''Add''x/TDx/FORM>’); 

send('<FORM METHOD = POST ACTION='); 
send("'http.7/131.120.39.65/cgi-win/faculty^rs_spo.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode+"'>'); 
send('<TD ALIGN="CENTER’'>’); 

send('<INPUT TYPE=SUBMIT VALUE="Browse"></TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-\vin/faculty/dspo_lst.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME=''FacultyCode" VALUE="'+FacultyCodef' 
send('<TD ALIGN="CENTER">’); 

send(’<INPUT TYPE=SUBMIT VALUE="Delete"xArDx/FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send('<p>'); 

sendHR; 

send('<p>'); 


send('<H2>Maintain Faculty Infonnation/Account:</H2>'); 
send('<CENTER>'); 

send('<TABLE BORDER=5 CELLPADDING=5>’); 
send('<TR>'); 

send('<FORM METHOD=POST ACTION='); 
send('"http://131.120.39.65/cgi-win/faculty/mfi_form.exe">'); 

send('<INPUT TYPE=''HIDDEN" NAME="FacuItyCode" VALUE="’+FacultyCode+"'>'); 
send('<TD ALIGN="CENTER">'); 

send('<INPUT TYPE="SUBMIT" VALUE="Modify"x/TDx/FORM>'); 

send('<FORM METHOD=POST ACTION='); 
send("'http;//131.120.39.65/cgi-win/faculty/dsp_fac.exe">'); 

send('<INPUT TYPE=''HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCodef' 
send(’<TD ALIGN="CENTER">'); 

send('<INPUT TYPE=''SUBMIT" VALUE="Browse"x/TDx/FORM>’); 
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send('<FORM METHOD=POST ACTION='); 
send("'http://131.120.39.65/cgi-win/faculty/infa_form.exe''>'); 

sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode'' VALUE='"+FacultyCode+"'>'); 
send('<TD ALIGN="CENTER">'); 

send('<INPUT TYPE=''SUBMIT" VALUE="Change Password"x/TDX/FORM>'); 
send('</TR></TABLEXCENTER>'); 


send('<p>'); 

sendHR; 

send('<p>'); 


send('<H2>Browse Research Areas:</H2>'); 
send('<CENTER>'); 

send('<TABLEB0RDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-\vin/faculty/brs_area.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+’">'); 
send('<TR>'); 

send('<TD ALIGN="CENTER"xSELECT NAME="ResearchAreaTitle" TYPE="text" 
SIZE=1>’); 


with Query 1 do {List Research Area Options} 

begin 
close; 

SQL.Add('SELECT DISTINCT ResearchAreaTitle'); 

SQL. Add(TROM RES_AREA'); 
open; 

first; (puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName('ResearchAreaTitle'). AsString+"'>'); 
send(FieldByName(ResearchAreaTitle').AsString); 
next; (puts cursor on next record} 
end; 
close; 

end; (End Query 1} 


send('</SELECTx/TDX/TR>'); 
sendC<TRxTD ALIGN="CENTER">’); 
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send('<INPUT TYPE=SUBMIT VALUE="Submit Selection" ALIGN="MIDDLE">'); 

send(’</TDx/FORMX/TABLE>’); 

send('</center>'); 

sendHR; 

send('<H3>Browse Centers and Labs</H3>'); 
send('<center>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/faculty/show_lab.exe">'); 

send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+’">'); 
send('<TR>'); 

sendC<TD ALIGN="CENTER"xSELECT NAME="CenterorLab" TYPE="text" SIZE=1>'); 

with Query2 do {List Research Centers And Labs Options} 
begin 
close; 

SQL.Add('SELECT CenterorLab'); 

SQL. Add(TR.OM RES_CENT'); 
open; 

first; (puts cursor on first record in answer table} 

while not EOF do 
begin 

send(’<OPTION VALUE= "’+FieldByName('CenterorLab').AsString+"'>'); 
send(FieldByName('CenterorLab').AsString); 
next; (puts cursor on next record} 
end; 
close; 

end; (End Query 2} 
send('</SELECTx/TDx/rR>’); 
sendC<TRxTD ALIGN="CENTER">'); 

send(’<INPUT TYPE=SUBMIT VALUE="Subniit Selection" ALIGN="MIDDLE">'); 

send('</TDx/F ORMX/TABLE>'); 

send('</center>'); 

send( '</BODYx/HTML>'); 
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closeStdout; 

closeAPP(application); 

end; 

end; 

end. 
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2. Add FTM Faculty Research Page 

{Add Page Form} 
unit Apgforail; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
var 

FacultyCode; String; 
begin 

with CGIEnvDatal do 
begin 

(required when this program runs under WebSite} 
webSitelNlFilename ;= paramstr(l); 
application. onException ;= cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 
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FacultyCode ;= getSmallField(TacuItyCode'); 


send( ’<HrMLxHEAD>'); 

sendTitle( 'Add a Faculty Research Page Form'); 

send( '</HEADxBODYBGCOLOR="ADEAEA">'); 

send(Please fill in the below fields. When you are finished click the'); 
send('" Submit" button'); 

{Re^stration Form} 
send('<center>'); 

send('<FORM method=post action-); 

send('"http://131.120.39.65/cgi-win/faculty/addpage.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<TABLE BORDER=5 CELLPADDING=5>'); 

send('<TRxTD>Last Name:'); 

send('</TDxtdxmput type="text" name="LastName"'); 
send('size=30 maxlength=30x/td>'); 

send('<TRxTD>First Name:'); 

send('</TDxtdxinput type="text" name="FirstName" *); 
sendCsize=20 maxlength=20x/td>'); 

send('<TRxTD>lvfiddle Initial:'); 

send('</TDxtdxinput type="text" name="MiddleInitial" *); 
send('size=l maxlength=l></td>'); 

send('<TRxTD>Title:'); 

send('</TDxtdxinput type="text" name="Title"'); 
send('size=35 maxlength=35xVtd>'); 

send('<TRXTD>Degree:'); 

send('</TDxtdxinput type="text" name="Degree"'); 
send('size=3 maxlength=3^Wtd>'); 

send('<TRXTD>Graduate School:'); 
send('</TDxtdxinput type="text" name=" School"'); 
send('size=50 maxlength=50x/td>'); 

send ('<TRxTD>Year Graduated:'); 
send('</TDxtdxinput type="text" name="GradYear"'); 
send('size=4 maxlength=4x/td>'); 
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send('<TR><TD>Office Area Code:'); 

send('</TDxtdxmput type="text" name="PhoneAreaCode"'); 
send('size=3 maxlength=3Wtd>'); 

send('<TRxTD>OflBce Phone;'); 

send('</TDxtdxinput type="text" name="PhoneLocalNumber"'); 
send('size=8 inaxlength=8x/td>'); 

send('<TRXTD>Email:'); 

send('</TDxtdxinput type="text" name="Email"'); 
send('size=35 maxlength=35x/td>'); 

send('<TRxTD>HomePage;'); 

send('</TDxtdxinput type="text" name="HomePage"'); 
send('size=40 maxlength=40x/td>'); 

send('<TRxTD>Research Areas;</TD>'); 
send('<TDxtextarea rows=3 cols=50 name="ResearchAreas">'); 
send(Please list your research areas seperated '); 
sendCby conimas.</textarea>'); 

send('<TRXTD>ResearchDescription:</TD>'); 
send('<TDxtextarea rows=10 cols=50 name="ResearchDescription">'); 
send(Please provide a description of your research area.</textarea>'); 

send('<TRxTD>Relevance to DOD/DON:</TD>'); 
send('<TDxtextarea rows=5 cols=50 nanie="RelevancetoDOD/DON">'); 
send(Please state how your research area is relevant to DOD/DON.</textarea>'); 


send('</TABLE>'); 

send('<P>'); 

send('<input type="submit" value= "Submit Information">'); 
send('<input type="reset" value="Clear Form"xycenter>'); 
send('</form>'); 
send('<P>'); 

{If user cancels, send user to Catalog Menu} 

send('<CENTER>'); 

send('<FORM method=post action='"+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<nSIPlJT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<input type="submit" value="Cancel, Return to Catalog Menu">'); 
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send('</form>'); 

send(’</CENTER>'); 

send('</BODYX/HTML>’); 
closeStdout; 
closeApp( application ); 
end; 
end; 

end. 

{Add Research Page To Table} 
unit Addpagel; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Table 1: TTable; 

DataSource2: TDataSource; 

Table2: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 


73 




FacultyCode: string; 

LastName: string; 

FirstName: string; 

Mddlelnitial: string; 

Title: string; 

Degree: string; 

School: string; 

Gradyear: string; 

PhoneAreaCode; string; 

PhoneLocalNumber: string; 

Email; string; 

HomePage: string; 

theAreas : TStringList; 
theDescription; TStringList; 
theRelevance: TStringList; 

begin 

with CGBEnvDatal do 
begin 

(required when this program runs under WebSite} 
webSitelNIFilename ;= paramstr(l); 
application. onException ;= cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

(receive input fields fi’om HTML form} 

FacultyCode := getSmallField( TacultyCode'); 

LastName := getSmallField( 'LastName'); 

FirstName := getSmallField( TirstName'); 

Middlelnitial ;= getSmallField( 'Middlelnitial'); 

Title := getSmallField( 'Title'); 

Degree := getSmallField( Degree'); 

School := getSmallField( 'School'); 

GradYear := getSmallField( 'GradYear*); 

PhoneAreaCode ;= getSmallField( PhoneAreaCode'); 
PhoneLocalNumber := getSmallField( PhoneLocalNumber'); 
Email ;= getSmallField( Email'); 

HomePage := getSmallField( 'HomePage'); 
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theAreas := TStringList.create; 
the Areas, clear; 

getTextArea( 'ResearchAreas', theAreas); 

theDescription := TStringList.create; 
theDescription. clear, 

getTextArea( 'ResearchDescription', theDescription ); 

theRelevance := TStrin^ist.create; 
theRelevance.clear; 

getTextArea( RelevancetoDOD/DON’, theRelevance ); 

send( '<HTML><HEAD>'); 

sendTitle( 'Add Research Page Menu'); 

send( '</HEADXBODYBGCOLOR="ADEAEA">'); 

with Tablel do {puts cursor on correct record in Research Page table} 
begin 
open; 

SetKey; 

FieldByNameCFacultyCode').AsString ;= FacultyCode; 

GotoKey; 

end; 

if (Tablel.GroToKey = True) or (FacultyCode = CGINotFound) then 
(User already has a research page} 

begin 

send('<centerxhl>You Already Hava a Research Page</hl>'); 
sendHR; 

send('<p>'); 

send('<FORM niethod=post action='"+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input type="submit" value="Cancel, Return to Catalog Menu ">'); 
send('</form>'); 
send('</CENTER>'); 
end 

else 

{add research page} 
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begin 

Table 1. AppendRecord([FacultyCode,LastName,FirstName, 

MiddleInitial,Title,Degree,School,GradYear, 
PhoneAreaCode,PhoneLocaINumber,Email,HomePage]); 

Table 1. close; 

Table2.open; 

Table2.AppendRecord([FacultyCode,theAreas,theDescription, 

theRelevance]); 

Table2. close; 

send('<centerXhl>Your Research Page was successfully entered !</hl>'); 
sendHR; 

send('<P>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN’’ NAME="FacultyCode" VALUE=’"+FacultyCode+'">'); 
send('<input type=" submit" value="Catalog Menu ">'); 
send('</form>'); 
send('</CENTER>'); 
end; 

send( ’</BODYX/HTMl>’); 

closeStdout; 

closeApp(application); 

end; 

end; 
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3. Modify ITM Faculty Research Page 

{Displays Text in Research Page to be Modified} 
unit Mpgshow; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgidb, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

CGIDB 1: TCGIDB; 

DataSourcel; TDataSource; 

Tablel; TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

FacultyCode; string; 
begin 

with CGIEnvDatal do 
begin 

(required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application.processMessages; 
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createStdout; 

sendPrologue; 

FacultyCode ;= getSmallField(TacultyCode'); 

send( ’<EnMLxHEAD>’); 

sendTitle( Modify Research Page'); 

send( '</HEADxBODYBGCOLOR=’'ADEAEA">’); 


{Modification form} 

with Tablel do {Search Research Page Table for record to be modified} 
begin 
open; 

FindKey([FacultyCode]); 

end; 

send('<center>'); 

send('<FORM METHOD=POST ACTION='); 
send("'http://131.120.39.65/cgi-win/faculty/mod_pge.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE=’"+FacultyCode+"'>’); 
send('<TABLEBORDER=5 CELLPADDING=5>'); 

send('<TRxTD>Research Areas:</TD>'); 

send('<TDxtextarea rows=3 cols=50 name="ResearchAreas">'); 

CGBDB1. S endMemo(T able 1 .FieldByNameCResearchAreas')); 
send('</textarea>'); 

send('<TRXTD>Research Description:</TD>'); 

send('<TDxtextarea rows=10 cols=50 name="ResearchDescription">'); 

CGIDB1. SendMemo(Table 1 .FieldByName(ResearchDescription')); 
sendC</textarea>'); 

send('<TRXTD>DOD/DON Relevance ;</TD>'); 

send('<TDxtextarea rows=5 cols=50 name="RelevancetoDOD/DON">'); 

CGBDB 1. SendMemo(Table 1 .FieldByName(RelevancetoDOD/DON')); 
send('</textarea>'); 

sendC</TABLE>'); 

send('<P>'); 

send('<input type="submit" value= "Submit Change">'); 
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send('<input type="reset" value="Reset Fields 

send^</fonn>'); 

sendHR; 

send('<p>'); 

send('<FORM METHOD=POST ACTION='); 
send("'http://131.120.39.65/cgi-'wm/faculty/catalog.exe">'); 

send('<INPUT TYPE="HrDDEN" NAME="FacultyCode" VALUE=’"+FacultyCodeH-'">'); 
send('<mput type=''submit" value="Cancel,Return to Catalog Menu">'); 
send('</form>'); 
send('</CENTER>’); 

Tablel.close; 

send( '</BODYx/HTML>'); 
closeStdout; 
closeApp(application); 
end 
end; 

end. 

{Accepts Text Changes to Research Page} 
unit Mod_pgel; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Tablel; TTable; 

procedure FormCreate(Sender: TObject); 
private 

{Private declarations } 
public 

{ Public declarations } 
end; 
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var 

Forml: TForml; 
implementation 
($R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

FacultyCode ; string; 

AreaBrief : TStringList; 

DescriptionBrief: TStringList; 

RelevanceBrief : TStrin^ist; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs imder WebSite} 
webSitelNIFilename ;= paramstr(l); 
apphcation.onException ;= cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

FacultyCode := getSmallField( TacultyCode'); 

AreaBrief := TStringList.create; 

AreaBrief clear; 

getTextArea( ResearchAreas', AreaBrief); 

DescriptionBrief := TStringList.create; 

DescriptionBrief clear; 

getTextArea( ResearchDescription', DescriptionBrief); 

RelevanceBrief ;= TStringList.create; 

RelevanceBrief clear; 

getTextArea( RelevancetoDOD/DOlSP, RelevanceBrief); 

send( ’<HTMLXHEAD>'); 
sendTitle( 'Modify Research Page'); 
send( ’</HEADXBODY BGCOLOR="ADEAEA">'); 
send('<centerXhl>Modify Research Page</hl>'); 
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(Modify Research Page} 
with Table 1 do 
begin 
open; 

FindKey([FacultyCode]); 

delete; 

AppendRecord([FacultyCode,AreaBrie^DescriptionBrief,RelevanceBrief]); 

close; 

end; 

send('<h2>The research page has been modified.</h2>'); 

send('<p>'); 

sendHR; 

send('<p>'); 

sendC<FORMMETHOD=POST ACTION=’); 
send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+"'>'); 

send('<input type="submit" value=" Catalog Menu">'); 

send('</formx^center>'); 

send( '</BODYx/HTML>'); 
closeStdout; 
closeApp(apphcation); 
end; 
end; 

end. 
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4. Add Publications 


unit Pub_rrbl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel; TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

(Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender: TObject); 
var 

FacultyCode: String; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application. processMessages; 

createStdout; 
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sendPrologue; 

FacultyCode :=getSmallField(TacultyCode'); 

{standard header information} 
send( '<HTMLXHEAD>'); 

sendTitle( 'Choose To Add New or Existing PUB Menu'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

send ('<H4>Select a publication to add to your research page, faculty); 

send('research area, or both. If another ITM professor co-authored a'); 

send('publication with you he may have already entered it, so you might'); 

send('want to check the list of existing pubs first. If you are the only'); 

send('author and know you did not enter the publication select "Add New Pub"</H4>'); 

send('<center>'); 

send('<TABLEBORDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http://131.120.39.65/cgi-win/faculty/sel_rrb.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode^-'">'); 
send('<TR>'); 


send('<TDxSELECTNAME="PubTitle" TYPE="text" SIZE=1>'); 


with Queryl do 
begin 
close; 

SQL. AddCSELECT PubTitle'); 

SQL.AddCFROM PUBS'); 
open; 

first; {puts cursor on first record in answer table) 

while not EOF do 
begin 

send('<OPTION VALUE= '"+FieldByName(TubTitie').AsString+"’>'); 
send(FieldByName(TubTitle').AsString); 
next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 
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send('<TRxtd ALIGN="CENTER"xmput type="radio" checked name="PubCombo"'); 
send('value="Pub2Pg''>Add to Research Page'); 

send('<input type="radio" name="PubCombo" value="Pub2Area">Add to Research Area'); 
send('<input type="radio" name="PubCombo" value="Pub2Both">Add to Both </td>'); 

send('<TRxtd ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE="Add Existing 
Pub"x/td>'); 

send('</FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http://131.120.39.65/cgi-\vin/faculty/sel_pub.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<TRxtd ALIGN="CENTER"xlNPXJT TYPE=SUBMIT VALUE="Add New 
Pub"X/td>'); 

send('</FORM>'); 

send(’<FORM METHOD = POST ACHON='); 
send('"http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<TRxtd ALIGN="CENTER"xl]SIPUT TYPE=SUBMIT VALUE="Cancel, Return to 
Catalog Menu"x/td>'); 
send('</FORM>'); 

send('</Table>'); 

send('</BODYx/HTML>'); 

closeStdout; 

closeAPP(application); 

end; 

end; 

end. 

{If Adding New Pub to Page and/or Areas} 
unit Sel_publ; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, Cgi; 
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type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{Private declarations } 
public 

{Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender; TObject); 
var 

FacultyCode ; string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

FacultyCode ;= getSmallField(TacultyCode'); 

send( ’<HTMLXHEAD>’); 

sendTitle( Determine Publication Type'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">’); 

send ('<centerXHl>Choose The Publication Type</Hlx/center>'); 
send('<P>'); 

send('<h2>Please click below the type of publication you want to'); 
send('enter'); 
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send('<P>'); 

send('<Center>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-\vin/faculty/pubtype.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+"'>'); 

send('<TABLE B0RDER=5 CELLPADDING=5>'); 

send('<TRxtdXmput type="radio" checked name="PubType"'); 
send(Value="Joumal">Joumal'); 

send('<input type="radio" name="PubType" value="Book">Book'); 
send('<input type="radio" name="PubType" value='’Other">Other</td>'); 


send('</TABLE>'); 


send('<input type="submit'' value="Send Reply">'); 
send('</fonn>'); 

send('<P>'); 

sendHR; 

send('<p>'); 


send('<FORM inethod=post action="'+ 

'http://131.120.39.65^gi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode+'’'>'); 
send('<input type="submit" value="Cancel, Return to Catalog Menu">'); 
send('</fonn>'); 
send(’</CENTER>’); 

send('</BODYx/HTML>'); 
closeStdout; 
closeApp( application ); 
end; 
end; 

end. 

(KPub is a Journal} 
unit AddJml; 

interface 

uses 
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SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel; TDataSource; 

Tablel: liable; 

DataSource2; TDataSource; 

Table2: liable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations} 
end; 


var 

Forml: TForml; 


implementation 
{$R *.DFM} 


procedure TForml.FormCreate(Sender: TObject); 
var 


FacultyCode 

PubTitle 

theAuthor 

JoumalName 

Volume 

Number 

PubMonth 

Pub Year 

Pages 

Note 


: string; 

: string; 
:TStringList; 

: string; 
:string; 

: string; 

: string; 
•string; 

: string; 

.string; 


begin 


with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename ;= paramstr(l); 
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application. onException ;= cgiErrorHandler; 
application-processMessages; 


createStdout; 

sendProIogue; 

{receive input fields fi’om HTML form} 

FacultyCode ;= getSmallField(TacultyCode'); 
PubTitle := getSmallField( TubTitle'); 

theAuthor := TStringList.create; 
the Author, clear; 

getTextArea( 'Author*, theAuthor ); 

JoumalName := getSmallField( 'JoumalName'); 
Volume ;= getSmallField( 'Volume'); 

Number := getSmalIField( 'Number'); 

PubMonth := getSmallField( 'PubMonth'); 

PubYear ;= getSmallField( PubYear'); 

Pages := getSmaJlField( Pages'); 

Note := getSmallField( Note'); 


send( '<HTMLXHEAD>'); 

sendTitle( 'Add Research Page Menu'); 

send( '</HEADXBODY BGCOLOR="ADEAEA">'); 

with Tablel do (puts cursor on correct record in Pub table} 
begin 
open; 

SetKey; 

FieldByName('PubTitle').AsString := PubTitle; 

GotoKey; 

end; 

if (Tablel.GoToKey = True) then 
(Pub already exist} 

begin 

send('<CenterXhl>Publication Already Exist In Database</hl>'); 

sendHR; 

send('<P>'); 


send('<FORM[ method=post action='); 
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send("'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPlJT TYPE="HIDDEN" NAME=''FacultyCode" 
VALUE=’"+FacultyCode+'">'); 

send('<input type="submit" value= "Cancel, Return to Catalog Menu">'); 
send^<7form>'); 
send(’</CENTER>'); 
end 
else 

{add research page} 
begin 

Tablel.open; 

Tablel.AppendRecord([PubTitle,theAuthor,PubMonth,PubYear,Note]); 

Tablel.close; 

Table2.open; 

Table2.AppendRecord([PubTitle,JoumalName,Volume,Number,Pages]); 

Table2.close; 

send ('<H2>Choose whether you want to add your publication to a'); 
send(' faculty research page, faculty research area, or both</H2>'); 

send('<center>'); 

send(’<FORM METHOD = POST ACTION='); 
sendC"http://131.120.39.65/cgi-win/faculty/sel_rrb.exe">'); 
sendC<INPUT TYPE="HIDDEN" NAME="PubTitle" VALUE="'+PubTitle+"'>'); 
send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+"'>'); 


sendC<TABLE BORDER=5 CELLPADDING=5>'); 


send('<TRxtd ALIGN="CENTER"xinput type="radio" checked name="PubCombo"'); 
send(Value="Pub2Pg">Add to Research Page'); 

send('<input type="radio" name="PubCombo" value="Pub2Area">Add to Research Area'); 
send('<input type="radio" name="PubCombo" value="Pub2Both">Add to Both </td>'); 

send('</TABLE>'); 

send('<INPUT TYPE=SUBMIT VALUE="Submit Selection">'); 
send('</FORM>'); 
send('</center>'); 
end; 


send( '</BODYx/HTML>'); 
closeStdout; 
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closeApp(application); 

end; 

end; 

end. 

{If Pub is a Book} 
unit Add_bkl; 

interface 


uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGBEnvDatal: TCGDEnvData; 

DataSourcel: TDataSource; 

Tablel; TTable; 

DataSource2: TDataSource; 

Table2; TTable; 

procedure FormCreate(Sender; TObject); 
private 

{Private declarations } 
public 

{ Public declarations } 
end; 


var 

Forml; TForml; 


implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender; TObject); 
var 

theAuthor iTStringiList; 

PubTitle : string; 

Publisher : string; 

PubMonth : string; 

Pub Year : string; 
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; string; 
string; 
istring; 
string; 
istring; 

begin 


Volume 

Series 

Edition 

Note 

FacultyCode 


with CGDEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields from HTML form} 
theAuthor := TStringList. create; 
theAuthor.clear; 

getTextArea( 'Author*, theAuthor); 


PubTitle 

Publisher 

PubMonth 

Pub Year 

Volume 

Series 

Edition 

Note 

FacultyCode 


:= getSmallField( 'PubTitle'); 

:= getSmallField( 'Publisher'); 

:= getSmaIlField( 'PubMonth'); 
;= getSmallField( 'PubYear'); 

;= getSmallField( 'Volume'); 

:= getSmallField( 'Series'); 

;= getSmallField( 'Edition'); 

:= getSmallField( Note'); 

:= getSmallFieldCFacultyCode'); 


send( '<HTMLXHEAD>'); 

sendTitle( 'Add Research Page Menu'); 

send( '<HEADxBODY BGCOLOR="ADEAEA">'); 

with Tablel do {puts cursor on correct record in Pub table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle').AsString ;= PubTitle; 
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GotoKey; 

end; 

if (Tablel.GoToKey = True) then 

{Pub already exist} 

begin 

send('<CenterXhl>Publication Already Exist In Database</hl>'); 

sendHR; 

send('<P>'); 

send('<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPlJT TYPE=''HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode+"’>'); 
send('<input type="submit" value= "Cancel, Return to Catalog Menu">'); 
send('</form>'); 
send(’</CENTER>'); 
end 
else 

(add research page) 

be^ 

Tablel.open; 

Tablel.AppendRecord([PubTitle,theAuthor,PubMonth,PubYear,Note]); 

Tablel. close; 

Table2.open; 

Table2 .AppendRecord([PubTitle,Publisher, Volume, Series,Edition]); 

Table2. close; 

send ('<H2>Choose whether you want to add your publication to a'); 
send(' faculty research page, faculty research area, or both</H2>'); 

send('<center>'); 

send('<FORM METHOD = POST ACTION='); 
send^"http://131.120.39.65/cgi-win/faculty/sel_rrb.exe">'); 
send('<IHPUT TYPE="HIDDEN" NAME="PubTitle" VALUE="'+PubTitle+"’>'); 
sendC<INPlJT TYPE="HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode^-"'>'); 

sendC<TABLEBORDER=5 CELLPADDING=5>'); 

send('<TRxtd ALIGN="CENTER"xinput type="radio" checked name="PubCombo" *); 
send(Value="Pub2Pg">Add to Research Page'); 

send('<input type="radio" name="PubCombo" value="Pub2Area">Add to Research Area'); 
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send('<input type="radio" name="PubCombo'' value="Pub2Both">Add to Both </td>'); 


send('</rABLE>'); 

sendC<INPUT TYPE=SUBMIT VALUE=''Submit Selection''>'); 
sendC<;/FORM>'); 
send('</center>'); 
end; 

send( '</BODYx/HTML>'); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If Pub is Other Than Journal or Book} 
unit Add_othl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Tablel; TTable; 

DataSource2; TDataSource; 

Table2: TTable; 

procedure FormCreate(Sender: TObject); 
private 

(Private declarations } 
public 

{Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
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{$R *.DFM} 


procedure TForml.FormCreate(Sender; TObject); 
var 


theAuthor 

PubTitle 

PubMonth 

Pub Year 

theCitation 

FacultyCode 


iTStringList; 
; string; 

; string; 

: string; 
iTStringList; 

: string; 


begin 


with CGDEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException ;= cgiErrorHandler, 
application.processMessages; 


createStdout; 

sendPrologue; 


(receive input fields from HTML form} 
theAuthor := TStringList.create; 
theAuthor. clear; 

getTextArea( 'Author', theAuthor ); 


PubTitle 
PubMonth 
Pub Year 
FacultyCode 


- getSmallField( 'PubTitle'); 

:= getSmaIlField( 'PubMonth'); 
:= getSmallField( 'PubYear*); 

:= getSmallField(TacultyCode'); 


theCitation := TStringList.create; 
theCitation. clear; 

getTextArea( 'Citation', theCitation ); 

send( '<HTMLXHEAD>'); 

sendTitle( 'Add Research Page Menu'); 

send( '</HEADXBODYBGCOLOR="ADEAEA">'); 


with Table 1 do {puts cursor on correct record in Pub table} 
begin 
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open; 

SetKey; 

FieldByNameCPubTitle').AsString := PubXitle; 

GotoKey; 

end; 

if (Table l.GoToKey = True) then 
{Pub already exist} 

begin 

send('<CenterXhl>Publication Already Exist In Database</hl>'); 

sendHR; 

sendC<P>’); 

send('<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN'' NAME=’’FacultyCode" 

VALUE="'+FacultyCode4-"'>’); 

send('<input type="submit" value= "Cancel, Return to Catalog Menu">'); 
send('</form>'); 
send(’</CENTER>'); 
end 
else 

{add research page) 
begin 

Table 1.open; 

Tablel.AppendRecord([PubTitle,theAuthor,PubMonth,PubYear]); 

Tablel.close; 

Table2.open; 

Table2.AppendRecord(|PubTitle,theCitation]); 

Table2. close; 

send ('<H2>Choose whether you want to add your publication to a'); 
send(' faculty research page, faculty research area, or both</H2>'); 

send('<center>'); 

sendC<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/faculty/sel_rrb.exe">'); 
send(’<INPUT TYPE="HIDDEN" NAME="PubTitle" VALUE="’+PubTitle+"’>'); 
sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE=’"+FacultyCode+"’>’); 
send('<TABLE BORDER=5 CELLPADDING=5>'); 
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send('<TRxtd ALIGN="CENTER"xinput type="radio" checked name=''PubCombo"'); 
send('value=''Pub2Pg">Add to Research Page'); 

send('<input type="radio" name="PubCombo" value="Pub2Area">Add to Research Area'); 
send('<input type="radio" name="PubCombo" value="Pub2Both">Add to Both </td>'); 

send('</TABLE>'); 

send('<INPUT TYPE=SUBMIT VALUE="Submit Selection">'); 
send('</FORM>'); 
send('</center>'); 
end; 

send( '</BODY></ErrML>'); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{IF Pub Exist and Adding to Page and/or Area} 
unit Sel rrbl; 

interface 

uses 

SysUtils, WinXypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel; TDataSource; 

Queryl: TQuery; 

DataSource2: TDataSource; 

Tablel: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{Private declarations } 
public 

{Public declarations } 
end; 

var 
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Forml: TForml; 


implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender: TObject); 
var 

PubTitle : string; 

PubCombo ; string; 

FacultyCode : string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields from HTML form} 

FacultyCode := getSmallField( "FacultyCode'); 

PubTitle := getSmallField( 'PubTitle'); 

PubCombo := getSmallFieldCPubCombo'); 

send( '<HTMLXHEAD>'); 
sendTitle( 'Add Pub Menu'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

if PubCombo ='Pub2Pg' then 
begin 

with Table 1 do (puts cursor on correct record in Pub table} 
begin 
open; 

SetKey; 

FieldByName('PubTitle').AsString := PubTitle; 
FieldByName(TacultyCode').AsString := FacultyCode; 
GotoKey; 
end; 
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if Tablel.GoToKey = True then 
{Pub already exist} 

begin 

send('<CenterXh2>Publication Already On This Research Page</h2>'); 

sendHR; 

send(’<P>'); 


send('<FORM method=post action='); 
send("'http;//131.120.39.65/cgi-\vin/faculty/catalog.exe">'); 
send(’<INPUT TYPE="HIDDEN'’ NAME="FacultyCode" 
VALUE="*+FacultyCode+"'>’); 

send('<input type="subnut" value= "Cancel, Return to Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 
else 

(add research page} 
begin 

(input record into tables} 

Tablel.open; 

Tablel.AppendRecord([PubTitle,FacultyCode]); 

Tablel.close; 

send('<h2>Your Publication was successfully entered on research page!</h2>'); 
sendHR; 

sendC<P>’); 

send('<Center>'); 

send('<FORM method=post action='); 
send("'http://131.120.39.65/cgi-win/faculty/catalog.exe"> '); 
send('<I]SlPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE="'+FacultyCodeH-"'>'); 

send('<input type=" submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end; 
end; 

if PubCombo ='Pub2Area' then 
begin 

send('<center><H2>Add Publication to Research Area<;/h2>'); 
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send(’<FORM METHOD = POST ACTION='); 
send("'http;//131.120.39.65/cgi-win/faculty/pub2area.exe">'); 
send(’<INPUT TYPE="HIDDEN" NAME=''PubTitle'' VALUE='"+PubTitle+"'>'); 
send('<INPUT TYPE="HIDDEN’' NAME="FacultyCode" VALUE=’"+FacultyCode+"'>’); 
send('<TABLE BORDER=5 CELLPADDING=5>'); 


send('<TR>'); 

send('<TD ALIGN="CENTER"xSELECTNAME="ResearchAreaTitle" TYPE="text’' 
SIZE=1>'); 


with Queryl do 

begin 

close; 

SQL.Add('SEL£CT ResearchAreaTitle'); 

SQL. AddCFROM RES_AREA'); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= '"+FieldByNameCResearchAreaTitle').AsString+'">’); 
send(FieldByName('ResearchAreaTitle').AsString); 
next; (puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('</TABLE>'); 

send('<INPUT TYPE=SUBMIT VALUE=" Submit Information">'); 

send('</FORM>'); 

sendHR; 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE='’HIDDEN" NAME="FacultyCode’' VALUE="'+FacultyCode+"'>'); 
send('<input type="submit" value="Cancel, Return to Catalog Menu">'); 
send('</form>'); 
sendC</CENTER>'); 
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end; 


if PubCombo ='Pub2Both' then 
begin 

send('<centerxH2>Add Publication to Research Page and Research Area</h2>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http.7/131.120.39.65/cgi-win/faculty/pub2both.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="PubTitle'' VALUE="'+PubTitle+’">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode'' VALUE="'+FacultyCode^-'">'); 


send('<TABLE BORDER=5 CELLPADDING=5>'); 
send(’<TR>'); 

send('<TD ALIGN="CENTER"xSELECT NAME="ResearchAreaTitle" TYPE="text" 
SIZE=1>'); 


with Query 1 do 

begin 

close; 

SQL.Add('SELECT ResearchAreaTitle'); 

SQL. Add(TROM RES_AREA ’); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALIJE= "'+FieldByName('ResearchAreaTitle').AsString+"'>'); 
send(FieldByName('ResearchAreaTitle').AsString); 
next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECT></TDx/TR>'); 

send('</TABLE>'); 

send('<INPUT TYPE=SUBMIT VALUE=" Submit Information">'); 
send('</FORM>'); 

sendHR; 
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{If user cancels, Catalog Menu} 
send('<FORM method=post action-); 
send("'http ://131.120.39.65/cgi-win/faculty/ catalog. exe">'); 

send('<INPUT TYPE="HEDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+"'>’); 

send('<input type="submit'' value="Cancel, Return to Catalog Menu 

send('<^form>'); 

send('</CENTER>'); 

end; 

send( '</BODYx/HTML>'); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

(Adding Pub to a Research Area(s) Only} 
unit Pub_area; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

DataSourcel; TDataSource; 

Table 1: TTable; 

DataSource2: TDataSource; 

Table2: TTable; 

DataS ource3: TDataS ource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{Public declarations } 
end; 
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var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender; TObject); 
var 

ResearchAreaTitle ; string; 

PubTitle : string; 

SubAreasExist ; string; 

FacultyCode : string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename :=paramstr(l); 
application.onException ;= cgiErrorHandler; 
application. processMessages; 

createStdout; 

sendPrologue; 

{receive input fields from HTML form} 

ResearchAreaTitle := getSmallField( ResearchAreaTitle'); 
PubTitle := getSmallField( PubTitle'); 

FacultyCode := getSmallField(TacultyCode'); 

send( '<HTMLXHEAD>'); 

sendTitle( 'Add Pub to Research Area Menu'); 

send( '</HEADXBODY BGCOLOR="ADEAEA">'); 


with Table 1 do {Search Research Area Table for record to be modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist := Tablel.FieldByName('SubAreas').AsString; 
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If SubAreasExist = 'Yes' then 
begin 

send('<h3>The research area you selected to add the publication to has research'); 
send('subareas. Select one of subareas to add the publication.</h3>'); 
send('<P>'); 
send('<CENTER>'); 

send('<TABLEBORDER=5 CELLPADDING=5>'); 

sendC<FORM METHOD = POST ACTION='); 
send('"http://131.120.39.65/cgi-win/faculty/pub2sub.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<INPUT TYPE="HIDDEN" NAME="PubTitle" VALUE="’+PubTitle+"’>'); 
send('<TR>'); 


send('<TDxSELECTNAME="ResearchSubAreaTitle" TYPE="text" SIZE=1>'); 

with Query 1 do 
begin 
close; 

SQL.Add('SELECT RES_SUBA.ResearchSubAreaTitle'); 

SQL.Add(’FROM RES_SUBA'); 

SQL.Add('WHERE RES_SUBA.ResearchAreaTitle = '" + ResearchAreaTitle + ""); 
open; 

first; {puts cursor on first record in answer table) 

while not EOF do 
begin 

send('<OPTIONVALUE='"+FieldByName(’ResearchSubAreaTitle').AsString+'">'); 
send(FieldByName('ResearchSubAreaTitle').AsString); 
next; {puts cursor on next record) 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('</TABLE>'); 

send('<INPUT TYPE=SUBMIT VALUE=" Submit Information">'); 
send('</FORM>'); 

send('<P>'); 

sendHR; 

send('<center>'); 

send('<FORM METHOD = POST ACTION='); 
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send("'http://131.120.39.65/cgi-\vin/faculty/catalog.exe">'); 

sendC<INPUT TYPE="H[DDEN'' NAME="FacultyCode" VALUE="'+FacultyCode^-"’>’); 
sendC<TD ALIGN="CENTER"xiNPUT TYPE=SUBMIT VALUE='’Cancel, Return to 
Catalog Menu"></TDX/FORM>'); 

send(’</TRx/TABLEx/CENTER>'); 
end {end subareas = yes} 
else {else no subarea} 
begin 

with Table2 do {puts cursor on correct record in PUB_AREA table} 
begin 
open; 

SetKey; 

FieldByNameCPubTitle^AsString := PubTitle; 

FieldByName(ResearchAreaTitle').AsString := ResearchAreaTitle; 

GotoKey; 

end; 

if Table2.GoToKey = True then 

{User already has pub in this research area} 

begin 

send('<h3>You already have that publication in this Research Area.</h3>'); 

sendHR; 

send('<P>'); 

send('<center>'); 

send('<FORM method=post action='); 

send('"http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+’">'); 
sendC<input type="submit" value= "Catalog Menu">'); 
send('</fonn>'); 
sendC</CENTER>'); 
end 
else 

begin {add pub to research area} 

{input record into Research Area table} 

Table2.AppendRecord([PubTitle,ResearchAreaTitle]); 

Table2.close; 

send('<centerXh2>Your Publication was successfully'); 

send('added to the research area!</h2>'); 

sendHR; 

send('<P>'); 
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send('<center>'); 

send('<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-\vin/faculty/catalog.exe">'); 

sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode+"'>’); 
send('<input type="submit" value= "Catalog Menu">'); 
send('</fomi>'); 

send(’</CE]SrrER>’); 

end; 

end; {end else of no subareas exist} 

send( '</BODYx/EirML>’); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

(If a Pub is Going to a Subarea of an Area) 
unitPub2subl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Tablel; TTable; 

procedure FormCreate(Sender: TObject); 
private 

{Private declarations } 
public 

{Public declarations } 
end; 

var 

Forml: TForml; 
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implementation 
{$R *.DFM} 


procedure TForml.FormCreate(Sender; TObject); 
var 

ResearchSubAreaTitle: string; 

PubTitle : string; 

FacultyCode : string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSiteEOTilename := paramstr(l); 
application. onException ;= cgjErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields fi'om HTML form} 

ResearchSubAreaTitle := getSmallField( ResearchSubAreaTitle'); 

PubTitle := getSmallField( PubTitle'); 

FacultyCode ;= getSmallField(Tacultycode'); 

send( '<HTMLXHEAD>'); 

sendTitle( 'Add Pub to Research Area Menu'); 

send( '</HEADXBODYBGCOLOR="ADEAEA">'); 

with Table 1 do (puts cursor on correct record in Research Page table) 
begin 
open; 

SetKey; 

FieldByName(ResearchSubAreaTitle').AsString := ResearchSubAreaTitle; 
FieldByName(PubTitle').AsString := PubTitle; 

GotoKey; 

end; 

if (Table l.GoToKey = True) then 

(User already has pub linked to research page) 

begin 


106 


send('<centerxh2>You already have that publication'); 

send('in this research subarea</h2>'); 

sendHR; 


send('<P>'); 


send('<center>'); 

send('<FORM method=post action='); 

send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+"'>’); 
send('<input type="submit" value= "Cancel, Return to Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 
else 

{add research page} 
begin 

(input record into Research Area table) 
Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 

Tablel.close; 

send('<centerXh2>Your Publication was successfully'); 
send('added to the selected research subarea!</h2>'); 
sendHR; 


send('<P>'); 
send('<center>'); 

send('<FORM method=post action='); 

send('"http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">’); 
send('<input type="submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end; 

send( '</BODYx/ErrML>'); 

closeStdout; 

closeApp(application); 

end; 

end; 
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{Adding Pub to Both Research Page and Area(s)} 
unit Pub2bot; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = cIass(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Tablel: TTable; 

DataSource2: TDataSource; 

Table2; TTable; 

DataSourceS: TDataSource; 

Tables: TTable; 

DataSource4: TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM) 

procedure TForml.FormCreate(Sender; TObject); 
var 

PubTitle : string; 

FacultyCode : string; 

ResearchAreaTitle : string; 

SubAreasExist : string; 

begin 
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with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename ;= paramstr(l); 
application.onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields fi’om HTML form} 

PubTitle ;= getSmallField( TubTitle'); 

FacultyCode ;= getSmallField( TacultyCode'); 
ResearchAreaTitle := getSmallField( 'ResearchAreaTitle'); 


send( ’<HTMLXHEAD>’); 

sendTitle( 'Add Pub to Research Area Menu'); 

send( '</HEADxBODYBGCOLOR="ADEAEA">'); 

with Tablel do (Search Research Area Table for record to be modified) 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist := Tablel.FieldByName('SubAreas').AsString; 

If SubAreasExist = 'Yes' then 
begin 

send('<h3>The research area you selected to add the publication to has research'); 

send('subareas. Choose one to add the publication. </H3>'); 

send('<P>'); 

send('<CENTER>'); 

send('<center>'); 

send('<rABLE BORDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http://131.120.39.65/cgi-win/faculty/pub2_all.exe">'); 
send('<IlSIPUT TYPE="HIDDEN" NAME="PubTitle'" + 
'VALUE='"+PubTitle+'">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode'" + 
'VALUE='"+FacultyCode+'">'); 
send('<TR>'); 
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send(’<TDxSELECTNAME=''ResearchSubAreaTitle" TYPE="text" SIZE=1>'); 

with Query 1 do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 

SQL. AddCTROM RES_SUBA'); 

SQL. Add^WEIERE RES_SUBA.ResearchAreaTitle = + ResearchAreaTitle + 

open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName(ResearchSub AreaTitle'). AsString+' ">'); 
send(FieldByName(ResearchSubAreaTitle').AsString); 
next; (puts cursor on next record) 
end; 
close; 
end; 

send(’</SELECTX/TDx/TR>'); 

sendC</TABLE>'); 

send('<I]SIPUT TYPE=SUBMIT VALLIE=" Submit Information''>'); 
send('<FORM>'); 

send('<P>'); 


send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="'+FacultyCode+"'>'); 
send('<TD ALIGN="CENTER"xi]SIPUT TYPE=SUBMIT VALLIE=''Cancel, Return to 
Catalog Menu"x/TDx/FORM>'); 

sendC</TRx/TABLEx/CENTER>'); 
end (end subareas = yes} 
else {else no subarea} 
begin 

with Table2 do {puts cursor on correct record in PagePUB table} 
begin 
open; 

SetKey; 

FieldByName(PubTitle'). AsString ;= PubTitle; 
FieldByName(FacultyCode').AsString := FacultyCode; 
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GotoKey; 

end; 

with Tables do {puts cursor on correct record in PUBAREA table) 
begin 
open; 

SetKey; 

FieldByName('PubTitle').AsString := PubTitle; 
FieldByNameCResearchAreaTitle^AsString := ResearchAreaTitle; 
GotoKey; 
end; 


if (TabIe2.GoToKey = True) and (TableS.GoToKey = False) then 
{User already has pub linked to research page) 

begin 

send('<centerxh2>You already have that publication'); 
send('on selected research page. Publication just added to'); 
send('selected research area.</h2>'); 

Tables. AppendRecord([PubTitle,ResearchAreaTitle]); 
Tables, close; 

sendHR; 

send('<P>'); 


send('<center>'); 

send('<FORM method=post action='); 

send('"http;//lS 1.120.S9.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<input type="submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 
else 

if (Table2.GoToKey = False) and (TableS.GoToKey = True) then 
{User already has pub linked to research area) 

begin 

send('<centerXh2>You already have that publication'); 
send('in selected research area. Publication just added to'); 
send('selected research page.</h2>'); 

Table2.AppendRecord([PubTitle,FacultyCode]); 
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Table2. close; 

sendHR; 

send('<P>'); 

send('<center>'); 

sendC<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-’win/faculty/catalog.exe">'); 

sendC<INPUT TYPE="HIDDEN'' NAME="FacultyCode" VALUE="'+FacultyCode+"'>'); 
sendC<input type="submit" value= "Catalog Menu">'); 
sendC</form>'); 
sendC</CENTER>'); 
end 
else 

if (Table2.GoToKey = True) and (Table3.GoToKey = True) then 
{User already has pub linked to both tables} 

begin 

sendC<centerXh2>You already have that pubhcation'); 
send('on selected research page and research area.</h2>'); 

sendHR; 

send('<P>’); 


send('<center>'); 

sendC<FORM method=post action= *); 
send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE="'+FacultyCode+"'>'); 

send('<input type="submit" value= "Catalog Menu">'); 
send('</form>'); 
sendC</CENTER>'); 
end 
else 
begin 

{add research page and research area) 

Table2.AppendRecord([PubTitle,FacultyCode]); 

Table2.close; 

Table3. AppendRecord([PubTitle,ResearchAreaTitle]); 

Table3 .close; 

send('<centerXh2>Your Publication was successfully'); 
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send('added to the selected research area and page!</h2>’); 


sendHR; 
sendC<P>’); 
send('<center>'); 

send('<FORM method=post action='); 

send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode’’ VALUE="'+FacultyCode+"'>’); 
send('<input type="subniit" value= "Catalog Menu">'); 
send(’</form>'); 
send(’</CENTER>’); 
end; 
end; 

send( '</BODYx/HTML>'); 

closeStdout; 
do seApp(application); 
end; 
end; 
end. 

{If Pub is also going to a Subarea of a Research Area} 
unit Pub2all; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGBEnvData; 

DataSourcel: TDataSource; 

Tablel: TTable; 

DataSource2: TDataSource; 

Table2; TTable; 

procedure FonnCreate(Sender; TObject); 
private 

{ Private declarations} 
public 

{ Public declarations} 
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end; 


var 

Forml: TFormI; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ResearchSubAreaXitle: string; 

PubTitle : string; 

FacultyCode ; string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields from HTML form) 

ResearchSubAreaXitle := getSmallField( ResearchSubAreaXitle'); 

PubXitle := getSmallField( 'PubXitle'); 

FacultyCode ;= getSmallField( Tacultycode'); 

send( '<HXMLXHEAD>'); 

sendTitle( 'Add Pub to Research Area Menu'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

with Xablel do {puts cursor on correct record in PUBSAREA table) 
begin 
open; 

SetKey; 

FieldByName('ResearchSubAreaXitle').AsString := ResearchSubAreaXitle; 
FieldByName('PubXitle').AsString ;= PubXitle; 

GotoKey; 

end; 
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with Table2 do {puts cursor on correct record in PAGEPUB table) 
begin 
open; 

SetKey; 

FieldByNameCFacultyCode').AsString := FacultyCode; 
FieldByName(PubTitle').AsString ;= PubTitle; 

GotoKey; 

end; 

if (Table l.GoToKey = True) and (Table2.GoToKey = False) then 
(User already has pub linked to research page) 

begin 

send('<centerXh2>You already have that publication'); 
send('on selected research subarea. Publication just added to'); 
send('selected research page.</h2>'); 

Table2.AppendRecord(IPubTitle,FacultyCode]); 

Table2.close; 

sendHR; 

send('<P>'); 

send('<center>'); 

send('<FORM method=post action='); 

send('"http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<input type=" submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 
else 

if (Table l.GoToKey = False) and (Table2.GoToKey = True) then 
(User already has pub linked to research area) 

begin 

send('<centerXh2>You already have that publication'); 
send('in selected research page. Publication just added to'); 
send('selected research subarea.</h2>'); 

Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 

Tablel.close; 
sendHR; 
send('<P>'); 

send('<center>'); 
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send('<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 

sendC<INPUT TYPE="fflDDEN'' NAME="FacultyCode" VALUE="'+FacultyCode+'">'); 
send('<input type="submit" value= "Catalog Menu">'); 
send('</fonn>'); 
sendC</CENTER>'); 
end 
else 

if (Table l.GoToKey = True) and (Table2.GoToKey = True) then 
{User already has pub linked to both tables) 

begin 

send('<centerxh2>You already have that publication'); 
send('on selected research page and research subarea. </h2>'); 

sendHR; 

send(’<P>'); 


send('<center>'); 

sendC<FORM method=post action='); 
send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE="'+FacultyCode+'">'); 

sendC<input type="submit" value= "Catalog Menu">'); 
sendC</form>'); 
sendC</CENTER>'); 
end 
else 
begin 

{add to research page and research subarea) 

Tablel.AppendRecord([PubTitle,ResearchSubAreaTitle]); 
Table 1.close; 

Table2.AppendRecord([PubTitle,FacultyCode]); 

Table2.close; 

send('<centerXh2>Your Publication was successfully'); 

send('added to the selected research subarea and page!</h2>'); 

sendHR; 

send('<P>'); 

sendC<center>'); 

send('<FORM method=post action='); 

send('"http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
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send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode+'">’); 
send('<mput type=" submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>’); 
end; 

send( '</BODY></HTML>'); 

closeStdout; 

closeApp(application); 

end; 
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5. Delete Publications 


unit Dpubrrb; 

interface 

uses 

SysUtils, WinXypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1: TQuery; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

Facultycode : string; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 
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sendProIogue; 

FacultyCode := getSmallField(Tacultycode'); 

{standard header information) 

send( '<HTMLXHEAD>'); 

sendTitle( "List PubTitles and Combination Menu'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

send ('<H3>Choose the publication you want to delete from your'); 

send(' research page, faculty research area, or both.</H3>'); 

send('<center>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http://131.120.3 9.65/cgi-win/faculty/del_rrb.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCodet-'">'); 
send('<TR>'); 

send('<TDxSELECTNAME="PubTitle" TYPE="text" SIZE=1>'); 

with Query 1 do 
begin 
close; 

SQL. Add('SELECT PubTitle'); 

SQL.AddCFROM PUBS'); 
open; 

first; (puts cursor on first record in answer table) 

while not EOF do 
begin 

send('<OPTION VALUE= '"+FieldByName('PubTitle').AsString+'">'); 
send(FieldByName('PubTitle').AsString); 
next; {puts cursor on next record) 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 


send('<TRxtd ALIGN="CENTER"xinput type="radio" checked name="PubCombo"'); 
send('value="Pub2Pg">Delete From Page'); 
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send('<input type="radio" name="PubCombo" value="Pub2Area">Delete From Area'); 
send('<input type="radio" name="PubCombo" value="Pub2Both">Delete From Both 
</td>’); 

send('<TRxtd ALIGN="CENTER''xlNPUT TYPE=SUBMIT VALUE="Submit 
Information''x/td>'); 
send('</FORM>’); 

send('<FORM method=post action="'+ 

'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME=''FacultyCode'’ VALUE=’"+FacultyCode+’">'); 
send('<TRXtd ALIGN="CENTER"xinput type="submit" value="Cancel, Return to Catdog 
Menu"x/td>'); 
send('</form>'); 
send('</table>'); 

sendC</BODYX/HTML>'); 

closeStdout; 

closeAPP(application); 

end; 

end; 

end. 

{Determines From Where Pub Is Being Deleted} 
unit Deljrbl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel; TDataSource; 

DataSource3; TDataSource; 

Query 1; TQuery; 

Query2; TQuery; 

DataSource2; TDataSource; 

Tablel; TTable; 
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procedure FormCreate(Sender: TObject); 
private 

{Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R ♦.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

PubTitle ; string; 

PubCombo ; string; 

FacultyCode ; string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields firom HTML form) 

PubTitle ;= getSmallField( TubTitle'); 

PubCombo ;= getSmallFieldCPubCombo'); 

Facultycode ;= getSmallFieldCFacultyCode'); 

send( '<HTMLxHEAD>'); 
sendTitle( 'Add Pub Menu'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

if PubCombo ='Pub2Pg' then 
begin 

with Table 1 do (puts cursor on correct record in PAGEPub table) 
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begin 

open; 

SetKey; 

FieldByNameCPubTitleO-AsString := PubXitle; 

FieldByName(TacultyCode').AsString ;= FacultyCode; 

GotoKey; 

end; 

if (Tablel.GoToKey = True) then 
begin {Delete pub from PagePub table) 
with Queryl do 
begin 
close; 

SQL.clear; 

sql.add(DELETE FROM PAGEPUB'); 
sqladdCWHERE (PubXitle = + PubXitle + ’")'); 
sqladdCAND (FacultyCode = + FacultyCode + "’)'); 

ExecSQL; 

end; 

send('<H3>Xhe publication has been deleted from research page.</H3>'); 
end 
else 
begin 

send('<h3>Xhe publication does not exist on your research page.'); 
send(’<BR>’); 

sendCVerify your selection and try again.</h3>'); 
end; 

send(’<P>'); 

sendHR; 

send('<P>'); 

send('<center>'); 

sendO<FORM method=post action='"+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUX XYPE="HIDDEN’' NAME="FacultyCode" VALUE='"+FacultyCode+’">'); 
send('<input type="submit" value="Catalog Menu ">'); 
send('</form>'); 
send('</CENXER>'); 
end; 

if PubCombo =Pub2Area' then 
begin 
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send('<H3>Delete Publication From A Research Area</h3>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http;//131.120.39.65/cgi-\vin/faculty/dpubarea.exe">'); 
send(’<INPUT TYPE="HIDDEN" NAME="PubTitle’' VALLIE=’"+PubTitle+"’>’); 
send('<INPUT TYPE="HIDDEN" NAME=’TacultyCode" VALUE=’"+FacultyCode+'">’); 


send(’<TABLEBORDER=5 CELLPADDING=5>’); 
send('<TR>'); 

send(’<TD ALIGN="CENTER"xSELECTNAME="ResearchAreaTitle'' TYPE="text" 
SIZE=1>'); 


with Query2 do 
begin 
close; 

SQL. Add('SELECT ResearchAreaTitle'); 

SQL. Add(TROM RES_AREA'); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName('ResearchAreaTitle'). AsString+"'>'); 
send(FieldByName('ResearchAreaTitle').AsString); 
next; (puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send(’<TRxTD ALIGN='’CENlER"xlNPUT TYPE=SUBMIT VALUE=''Submit 
Information "x/TR>'); 
send('</FORM>’); 

send('<FORM method=post action-"+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE="’+FacultyCode+’'’>'); 
send('<TRxTD ALIGN="CENTER"xinput type="submit" value=''Cancel, Return to 
Catalog Menu "></TR>'); 
send('</form>'); 
send('</table>'); 
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end; 


if PubCombo ='Pub2Both' then 
begin 

send('<H3>Delete Publication From A Research Area And Page</h3>'); 

send('<FORM METHOD = POST ACTION= ’); 
send("'http://131.120.39.65/cgi-win/faculty/dpubboth.exe">'); 
send(’<INPUT TYPE="HIDDEN" NAME='TubTitle" VALUE="'+PubTitlef' 
sendC<INPUT TYPE="HK)DEN" NAME="FacultyCode" VALUE="'+FacultyCode+"'>’); 


send('<TABLE BORDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<TD ALIGN="CENTER"xSELECTNAME="ResearchAreaTitle" TYPE="text" 
SIZE=1>'); 


with Query2 do 
begin 
close; 

SQL.Add('SELECT ResearchAreaTitle'); 

SQL. Add(TROM RES_AREA ’); 
open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName(ResearchAreaTitle').AsString+"'>'); 
send(FieldByName(ResearchAreaTitle').AsString); 
next; (puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

sendC<TRxTD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE=''Submit 
Information"X/TR>'); 
send('</FORM>'); 

send('<FORM method=post action="'+ 

'http://l 31.120.39.65/cgi-win/faculty/catalog.exe">'); 

sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+’">'); 
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send('<TRxTD ALIGN=''CENTER"xinput type="submit" value="Cancel, Return to 
Catalog Menu "x/TR>'); 
send('</form>'); 
send('</table>'); 
end; 

send( '</BODYx/HTML>'); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

{If Pub Is Being Deleted From A Research Area} 
unit Dpubare; 

interface 

uses 

SysUtDs, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DBTables, DB, Cgi; 

type 

TForml = class(TForm) 

CGDEnvDatal: TCGDEnvData; 

DataSourcel: TDataSource; 

Tablel: TTable; 

DataSource2: TDataSource; 

Query 1; TQuery; 

DataSourceS: TDataSource; 

Table2: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
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{$R *.DFM} 


procedure TForml.FormCreate(Sender; TObject); 
var 

ResearchAreaTitle istring; 

PubTitle : string; 

SubAreasExist : string; 

FacultyCode : string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename :=paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields from HTML form} 

ResearchAreaTitle ;= getSmallField( ResearchAreaTitle'); 

PubTitle ;= getSmallField( "PubTitle'); 

FacultyCode ;= getSmallField(Tacultycode'); 

send( '<HTMLXHEAD>'); 

sendTitle( "Delete Pub From Research Area'); 

send( '</HEADXBODYBGCOLOR="ADEAEA">’); 

with Tablel do {Search Research Area Table for record to be modified} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist := Tablel.FieldByName('SubAreas').AsString; 

If SubAreasExist = 'Yes' then 
begin 

send('The research area you selected to delete the publication from has research.'); 
send('subareas. Choose one of the subareas to delete the publication.'); 
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send('<P>'); 
send('<CENTER>'); 

send('<TABLEB0RDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http.7/131.120.39.65/cgi-win/faculty/dpub2sub.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALLIE="'+FacultyCodef"'>'); 
send('<INPUT TYPE="HIDDEN" NAME="PubTitle" VALUE="'+PubTitle+"'>'); 

send('<TRxTD ALIGN="CENTER"xSELECT NAME="ResearchSubAreaTitle" 
TYPE="text" SIZE=1>'); 


with Query 1 do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 

SQL. Add(TROM RES_SUBA); 

SQL.Add^WHERE RES_SUBAResearchAreaTitle = + ResearchAreaTitle + 

open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName('ResearchSubAreaTitle').AsString+"'>'); 
send(FieldByName('ResearchSubAreaTitle').AsString); 
next; {puts cursor on next record} 
end; 
close; 
end; 

send('</SELECTx/TDx/TR>'); 

send('<TRxTD ALIGN=''CENTER"xINPUT TYPE=SUBMIT VALUE=" Submit 
Infonnation"x/TD>'); 
send('</FORM>'); 

send('<FORM method=post action="'+ 

'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+"’>'); 
send('<TRxTD ALIGN=''CENTER"><input type="submit" value="Cancel, Return to 
Catalog Menu"x/TD>'); 
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send('</form>'); 

send('</TABLE>'); 

end {end subareas = yes} 

else {else no subarea} 

begin 

with Table! do {puts cursor on correct record in PUBAREA table} 
begin 
open; 

SetKey; 

FieldByNameCPubTitle^AsString := PubTitle; 
FieldByNameCResearchAreaTitle'). AsString := ResearchAreaTitle; 
GotoKey; 
end; 

if (Table2.GoToKey = True) then 
begin 

with Query 1 do 
begin 
close; 

SQL.clear; 

sqladdCDELETE FROM PUBAREA'); 
sqladdCWHERE (PubTitle = + PubTitle +'")'); 

sql.add('AND (ResearchAreaTitle = + ResearchAreaTitle + "')'); 
ExecSQL; 
end; 

send('<centerXh2>Publication deleted from selected research area</h2>'); 
end 
else 
begin 

send('<h3>Publication does not exist on selected research area.'); 
send('<BR>'); 

send('Verify your selection and try again.</h3>'); 
end; 


send('<P>'); 

sendHR; 

send('<P>'); 

send('<center>'); 

send('<FORM method=post action='); 
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send("'http://131.120.39.65/cgi-win/faculty/catalog.exe"> '); 

send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode^-"'>'); 
send('<input type="submit" value= "Catalog Menu"> '); 
send('</form>'); 
send(’</CENTER>'); 

end; {end else of no subareas exist} 

send( '</BODY></HTML>'); 
closeStdout; 
closeApp(application); 
end; 
end; 

end. 

(If Pub Is Being Deleted From A SubArea} 
unit Dpub_sub; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 

Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel; TDataSource; 

Query 1; TQuery; 

DataSource2: TDataSource; 

Tablel: TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
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{$R *.DFM} 


procedure TForml.FonnCreate(Sender: TObject); 
var 

ResearchSubAreaTitle ; string; 

PubTitle : string; 

FacuItyCode : string; 

begin 

with CGIEnvDatal do 
begin 

(required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException ;= cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 


(receive input fields fi'om HTML form} 

ResearchSubAreaTitle := getSmallField( ResearchSubAreaTitle'); 

PubTitle ;= getSmallField( 'PubTitle'); 

Facultycode ;= getSmallfield(TacultyCode'); 

send( '<HTMLXHEAD>'); 

sendTitle( 'Delete Pub From Research SubArea Menu'); 
send( '</HEADXBODY BGCOLOR="ADEAEA">'); 

with Table 1 do (puts cursor on correct record in table) 
begin 
open; 

SetKey; 

FieldByName(TubTitle').AsString ;= PubTitle; 

FieldByName(ResearchSubAreaTitle'). AsString := ResearchSubAreaTitle; 
GotoKey; 
end; 

if (Tablel.GoToKey = True) then 
begin 

with Query 1 do 
begin 
close; 


130 


SQL. clear; 

sql.add(T)ELETE FROM PUBSAREA'); 
sql.add('WHERE (PubXitle = + PubTitle +"') ’); 
sql.add('AND (ResearchSubAreaXitle = + ResearchSubAreaXitle + "')'); 

ExecSQL; 
end; 

send('<centerxh3>Your Publication was successfully*); 
send('deleted from the selected research subarea! </h3>'); 
end 
else 
begin 

send('<h3>Publication does not exist on selected research subarea.'); 
send('<BR>’); 

send('Verify your selection and try again</h3>'); 
end; 

send('<P>'); 

sendHR; 

send('<P>'); 


send('<center>'); 

send('<FORM method=post action='); 

send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

sendC<INPUX XYPE="HIDDEN" NAME="FacultyCode" VALUE=’"+FacultyCode+"'>'); 

send('<input type="submit" value= "Catalog Menu">'); 

send('</form>'); 

sendC</CENXER>'); 

send( ’</BODYx/HXML>'); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 

{IF Pub is Being Deleted From Both Research Page And Area} 
unit Dpubbotl; 

interface 

uses 

SysUtils, WinXypes, WinProcs, Messages, Classes, Graphics, Controls, 
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Forms, Dialogs, DBTables, DB, Cgi; 
type 

TForml = class(TForm) 

CGIEnvDatal; TCGIEnvData; 

DataSourcel: TDataSource; 

Tablel: TTable; 

DataSource2; TDataSource; 

Query 1: TQuery; 

DataSourceS; TDataSource; 

Query2: TQuery; 

DataSource4: TDataSource; 

DataSourceS: TDataSource; 

Table2; TTable; 

Tables: TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

ResearchAreaTitle : string; 

PubTitle : string; 

SubAreasExist :string; 

FacultyCode :string; 

begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite) 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application. processMessages; 
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createStdout; 

sendPrologue; 

{receive input fields from HTML form} 

ResearchAreaTitle ;= getSmallFieId( 'ResearchAreaTitle'); 

PubTitle := getSmaIIField( 'PubTitle'); 

FacultyCode := getSmalIFieId(TacuItycode'); 

send( ’<HTMLXHEAD>'); 

sendTitIe( "Delete Pub From Research Area'); 

send( ’</HEADXBODY BGCOLOR="ADEAEA">’); 

with Tablel do {Search Research Area Table for record} 
begin 
open; 

FindKey([ResearchAreaTitle]); 

end; 

SubAreasExist ;= Tablel.FieldByName('SubAreas').AsStrmg; 

If SubAreasExist = 'Yes' then 
begin 

send('The research area you selected to delete the publication from has research.'); 
send('subareas. Choose one of the subareas to delete the publication.'); 

send('<P>'); 
send('<CENTER>'); 

send('<TABLEBORDER=5 CELLPADDING=5>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http;//131.120.39.65/cgi-win/faculty/dboth_rr.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<INPUT TYPE="HIDDEN" NAME="PubTitle" VALUE='"+PubTitlerh'">'); 


send('<TRxTD ALIGN="CElSfTER"xSELECT NAME="ResearchSubAreaTitle" 
TYPE="text" SIZE=1>'); 


with Query 1 do 
begin 
close; 

SQL.Add('SELECTRES_SUBA.ResearchSubAreaTitle'); 
SQL. Add('FROM RES_SUBA'); 
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SQL.AddCWHERE RES_SUBA.ResearchAreaTitle = + ResearchAreaTitle + 

open; 

first; {puts cursor on first record in answer table} 

while not EOF do 
begin 

send('<OPTION VALUE= "'+FieldByName('ResearchSubAreaTitle').AsString+"'>'); 
send(FieldByName('ResearchSubAreaTitle').AsString); 
next; {puts cursor on next record) 
end; 
close; 
end; 

send(’</SELECT></TD></rR>’); 

send(’<TRxTD ALIGN="CENTER"xiNPUT TYPE=SUBMIT VALUE=" Submit 
Information"x/TD>'); 
sendC</FORM>’); 

send('<FORM method=post action="'+ 

'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 
sendC<INPUT TYPE="HIDDEN" NAME="FacultyCode'' VALUE="’+FacultyCode+’">'); 
send('<TRXTD ALIGN="CENTER"xinput type="submit" value="Cancel, Return to 
Catalog Menu"x/TD>'); 
send('</form>'); 
sendC</TABLE>’); 
end {end subareas = Yes} 

else {else no subarea} 

begin {Delete Account from PagePub and PubArea table} 

with Table2 do {puts cursor on correct record in PagePUB table} 
begin 
open; 

SetKey; 

FieldByName(TubTitle'). AsString := PubTitle; 

FieldByName('FacultyCode').AsString := FacultyCode; 

GotoKey; 

end; 

with Table3 do {puts cursor on correct record in PUBAREA table} 
begin 
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open; 

SetKey; 

FieldByName('PubTitle').AsString := PubTitle; 
FieldByName('ResearchAreaTitle').AsString := ResearchAreaXitle; 
GotoKey; 


if (Table2.Gk)ToKey = True) and (Tables.GoToKey = False) then 

begin {User does not have pub on research page) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sqLaddCDELETE FROM PAGEPUB ’); 
sql.add('WHERE (PubTitle =+ PubTitle + "')'); 
sql.add('AND (FacultyCode =+ FacultyCode + "')'); 

ExecSQL; 

end; 

send('<h3>Publication deleted from selected research page. Publication'); 
send('was not found in selected research area, therefore, there was'); 
send('nothing to delete. Please verify selection and try again.</h3>'); 


send('<P>'); 
send('<center>'); 

send('<FORM method=post action='); 
send('"http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE='"+FacultyCode+"'>'); 

send('<input type="submit" value= "Catalog Menu"> '); 
send('</form>'); 
send('</CENTER>'); 
end 
else 

if (Table2.GoToKey = False) and (TableS.GoToKey = True) then 

begin {User does not have pub on research page) 
with Query2 do 
begin 
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close; 

SQL.clear; 

sqladdCDELETE FROM PUBAREA'); 

sql.addCWHERE (PubTitle = + PubTitle + ’")'); 

sql.add('AND (ResearchAreaTitle =+ ResearchAreaTitle + "') '); 

ExecSQL; 

end; 

send('<h3>Publication deleted from selected research area. *); 
send(Publication was not found on your research page, therefore,'); 
send('there was nothing to delete.</h3>'); 


send('<P>'); 


send('<center>'); 

send('<FORM method=post action='); 

send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode" VALUE='"+FacultyCode+'">'); 
send('<input type=" submit" value= "Catalog Menu">'); 
send('<;/form>'); 
send('</CENTER>'); 
end 
else 

if (Table2.GoToKey = True) and (Table3.GoToKey = True) then 

begin {User has pub in both tables} 

with Query 1 do 
begin 
close; 

SQL.clear; 

sql addCDELETEFROMPAGEPUB'); 
sql.add('WHERE (PubTitle =+ PubTitle +'")'); 
sql.add('AND (FacultyCode = + FacultyCode + "')'); 

ExecSQL; 

end; 

with Query2 do 
begin 
close; 

SQL.clear; 

sqladdCDELETE FROM PUBAREA'); 
sqladdCWHERE (PubTitle ='" + PubTitle +'")'); 
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sql.add('AND (ResearchAreaTitle = + ResearchAreaTitle + "')'); 

ExecSQL; 
end; 

send('<h2>Publication deleted from research page and selected'); 
send('research area.</h2>'); 

sendHR; 

send('<P>'); 


send('<center>'); 

send('<FORM method=post action='); 
send("'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input type="submit" value= "Catalog Menu"> *); 
send('</form>'); 
send(’</CENTER>’); 
end 
else 
begin 

send('<h2>The publication does not exist on selected research area'); 
, send('and page, therefore, there is nothing to delete. Please verify'); 
sendCyour selections and try again.</h2>'); 

send('<P>'); 

send('<CENTER>'); 
send('<FORM method=post action='); 
send('"http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input type="submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 

end; (end else of no subareas exist} 
send( '</BODYx/HTML>'); 
closeStdout; 
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closeApp(application); 

end; 

end; 

end. 

(If Pub Is Being Deleted From Both Research Page and Subarea} 
unit Dbothrr; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Query 1; TQuery; 

DataSource2: TDataSource; 

Query2: TQuery; 

DataSourceS: TDataSource; 

Tablel: TTable; 

DataSource4: TDataSource; 

Table2; TTable; 

procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender; TObject); 
var 

ResearchSubAreaTitle: string; 
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PubTitle : string; 

FacultyCode : string; 


begin 

with CGBEnvDatal do 
begin 

(required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

(receive input fields from HTML form} 

ResearchSubAreaTitle ;= getSmalIField( 'ResearchSubAreaTitle'); 

PubTitle ;= getSmallField( 'PubTitle'); 

Facultycode := getSmallfieldCFacultyCode'); 

send( ■<HrMLxHEAD>'); 

sendTitle( 'Delete Pub From Research Sub Area Menu'); 
send( '</HEADxBODYBGCOLOR="ADEAEA">'); 

with Tablel do (puts cursor on correct record in PagePUB table} 
begin 
open; 

SetKey; 

FieIdByName(PubTitle').AsString ;= PubTitle; 
FieldByName('FacultyCode').AsString := FacultyCode; 

GotoKey; 

end; 

with Table2 do (puts cursor on correct record in PUBS AREA table} 
begin 
open; 

SetKey; 

FieldByName('PubTitle').AsString := PubTitle; 

FieldByName(ResearchSubAreaTitle').AsString := ResearchSubAreaTitle; 
GotoKey; 
end; 
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if (Tablel.GoToKey = True) and (Table2.GoToKey = False) then 


begin {User does not have pub on research page) 
with Query 1 do 
begin 
close; 

SQL.clear; 

sql.addCDELETEFROMPAGEPUB'); 
sql.addCWHERE (PubTitle =+ PubTitle + ’") ’); 
sql.add('AND (FacultyCode = + FacultyCode + "')'); 

ExecSQL; 

end; 

send('<h3>Publication deleted from selected research page. Publication'); 
send('was not found in selected research subarea, therefore, there was'); 
send('nothing to delete. Please verify selection and try again.</h3>'); 


send('<P>'); 
send('<center>'); 

send('<FORM method=post action='); 
send('"http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALUE='"+FacultyCode+'">'); 

send('<input type="submit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENlER>'); 
end 
else 

if (Tablel.GoToKey = False) and (Table2.GoToKey = True) then 

begin {User does not have pub on research page) 
with Query2 do 
begin 
close; 

SQL.clear; 

sqladdCDELETE FROM PUBSAREA'); 

sqladdCWHERE (PubTitle = '" + PubTitle +'")'); 

sql.add('AND (ResearchSubAreaTitle = '" + ResearchSubAreaTitle +'")'); 

ExecSQL; 

end; 
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send('<h3>Publication deleted from selected research subarea.'); 
sendCPublication was not found on your research page, therefore,'); 
sendCthere was nothing to delete.</h3>'); 

send('<P>'); 

sendC<center>'); 

send('<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-win/faculty/catalog.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="FacultyCode’' VALUE="'+FacultyCodef' 
send('<input type="subniit" value= "Catalog Menu">'); 
send('</form>'); 
send('</CENTER>'); 
end 
else 

if (Tablel.GroToKey = True) and (Table2.GoToKey = True) then 

begin {User has pub in both tables} 

with Queryl do 
begin 
close; 

SQL.clear; 

sql addCDELETE FROM PAGEPUB'); 
sqLaddCWHERE (PubTitle =+ PubTitle + ’") '); 
sqLaddCAND (FacultyCode = + FacultyCode + "’)'); 

ExecSQL; 

end; 

with Quer 3 r 2 do 
begin 
close; 

SQL.clear; 

sqladdCDELETE FROM PUBSAREA'); 
sqladdCWHERE (PubTitle =+ PubTitle + "’) '); 
sql.add('AND (ResearchSubAreaTitle = + ResearchSubAreaTitle + "') '); 
ExecSQL; 
end; 

send('<h2>Publication deleted from research page and selected'); 
send('research subarea.</h2>'); 

sendHR; 
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send('<P>'); 


send('<center>'); 

send('<FORM method=post action='); 
send("'http://131.120.39.65/cgi-win/faciilty/catalog.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="FacultyCode’' 
VALUE=’"+FacultyCode+"'>’); 

send('<input type="submit" value= "Catalog Menu">'); 
send('</fonn>'); 
send(’</CENTER>’); 
end 
else 
begin 

send('<h2>The publication does not exist on selected research subarea'); 
send('and page, therefore, there is nothing to delete. Please verify*); 
send('your selections and try again.</h2>'); 

send(’<P>’); 

send(’<CENTER>'); 
send('<F'ORM method=post action='); 
send("'http://131.120.39.65/cgi-win/faculty/catalog.exe">'); 
send(’<INPUT TYPE="HIDDEN" NAME="FacultyCode" 
VALlJE="'+FacultyCodef'">’); 

send('<input type="submit" value= "Catalog Menu">'); 
send('</form>'); 
send(’</CENTER>'); 
end; 

send( '</BODYx/HTML>'); 

closeStdout; 

closeApp(application); 

end; 

end; 

end. 
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C SYSTEM ADMINISTRATOR SCRIPTS 


1. System Administrator Menu 
unit Syscatl; 
interface 
uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi, DB, DBTables; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

(standard dynamic HTML header information) 

createStdout; 

sendPrologue; 
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send( '<HTMLXHEAD>'); 
sendTitle( Main Menu'); 

send( '</BiEADXBODY BGCOLOR="ADEAEA">'); 
send ('<centerxHl>Main Menu</Hlx/center>'); 

sendC<P>'); 

sendHR; 

send('<P>'); 

send('<ID>Maintain Accounts:</H3>'); 
send('<CENTER>'); 

sendC<TABLEB0RDER=5 CELLPADDING=5>'); 


send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/sel_acc.exe">'); 

send('<TD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE="Add">'); 

send('</TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-\^dn/sysad/sel_lst.exe">'); 

send('<TD ALIGN="CENTER"xlNPUT TYPE=SUBMrT VALUE="Modify">'); 

send('</TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/sysad/bsel_lst.exe">'); 

send('<TD ALIGN="CENTER"xiNPUT TYPE=SUBMIT VALUE="Browse">'); 
send('<yTDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/dsel_lst.exe">'); 

send('<TD ALIGN="CENTER"xllSIPUT TYPE=SUBMIT VALUE="Delete">'); 

send('</TDx/FORM>'); 


send('</TRx/TABLEx/CENTER>'); 


send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain Faculty Research Areas/SubAreas:</H3>'); 
send('<CENTER>'); 
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sendC<TABLE B0RDER=5 CELLPADDING=5>’); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/sysad/sarea_yn.exe">'); 
send('<TD ALIGN="CENTER''>'); 
sendC<INPUT TYPE=SUBMIT VALUE="Add"x/TD>'); 
send('</FORM>'); 

sendC<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-\vin/sysad/area_ls.exe">'); 
send('<TD ALIGN="CENTER">’); 
send(’<INPUT TYPE=SUBMIT VALUE="Modify"x/TD>'); 
send(’</FORM>'); 

send(’<FORM METHOD = POST ACTION='); 
send("'http;//131.120.39.65/cgi-will/sysad^^s_als.exe">'); 
sendC<TD ALIGN=’'CENTER">'); 

send(’<INPlJT TYPE=SUBMIT VALUE="Browse'’x/TD>'); 
send(’</FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/sysad/darea_ls.exe">'); 
sendC<TD ALIGN="CENTER">’); 
send(’<INPUT TYPE=SUBMIT VALUE="Delete"x/TD>'); 
send(’</FORM>'); 

sendC<nilx/TABLEx/CENTER>'); 

sendC<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Mamtain Research Centers/Labs:</H3>'); 
send('<CENTER>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/alab_fin.exe">'); 

send('<TD ALIGN="CENTER"xiNPlJT TYPE=SUBMIT VALUE="Add">'); 

send('</TDx/FORM>’); 

sendC<FORM METHOD = POST ACTION='); 
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send("'http://131.120.39.65/cgi-win/sysad/inlab_lst.exe''>'); 

send('<TD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE=’'Modify">’); 

send('</TD></FORM>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/brs_lab.exe">'); 

send('<TD ALIGN=''CENTER"xlNPUT TYPE=SUBMIT VALUE="Browse">’); 

send('</TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http;//131.120.39.65/cgi-win/sysad/dlab_lst.exe">'); 

send('<TD ALIGN=''CENTER"XINPUT TYPE=SUBMIT VALUE="Delete">'); 

send('</TDx/FORM>'); 

send('</TRx^ABLE></CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Mdntain Research Page:</H3>'); 
send('<CENTER>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/apgform.exe">'); 

send('<TD ALIGN=''CENTER"xlNPUT TYPE=SUBMIT VALUE="Add">'); 

send('</TDx/FORM>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/mpge_ls.exe''>'); 

send('<TD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE="Modify">'); 

send('</TD></FORM>'); 

send(’<FORM METHOD = POST ACTION='); 

send("'http://131.120.39.65/cgi-win/sysad/brsjpge.exe">'); 

send('<TD ALIGN="CENTER"><INPUT TYPE=SUBMIT VALUE=''Browse">'); 

send(’</TDx/FORM>’); 

send('<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/sysad/dpge_ls.exe''>'); 
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sendC<TD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE="Delete’'>'); 
sendC</TDx/FORM>'); 

send('</rRx/TABLEx/CENTER>'); 

send(’<P>’); 

sendHR; 

send('<P>'); 

send('<H3>Maintdn Research Sponsors:</H3>'); 
send(’<CENTER>'); 

send('<TABLE B0RDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 

send("'http;//131.120.39.65/cgi-win/sysad/aspon_fin.exe">'); 

sendC<TD ALIGN="CENTER’'xlNPUT TYPE=SUBMIT VALUE="Add">'); 

send('</TDx/FORM>'); 

send('<FORM METHOD = POST ACTION= ’); 

send("'http://131.120.39.65/cgi-win/sysad/brs_Ist.exe">'); 

send('<TD ALIGN='’CENTER"xilSIPUT TYPE=SUBMIT VALUE="Browse">'); 

send('</TDx/FORM>’); 

send('<FORM METHOD = POST ACTION= ’); 

send("'http;//131.120.39.65/cgi-win/sysad/dspo_lst.exe">'); 

send('<TD ALIGN='’CENTER"xiNPUT TYPE=SUBMIT VALUE="DeIete">’); 

send('</TDx/FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain Publications:</H3>'); 
send('<CENTER>'); 

sendC<TABLEBORDER=5 CELLPADDING=5>'); 
send('<TR>'); 

sendC<FORM METHOD = POST ACTION= ’); 
send("'http://131.120.39.65/cgi-\vin/sysad/pub_rrb.exe">'); 
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send(’<TD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE="Add"x/TD>’); 
send(’</FORM>'); 

send(’<FORM METHOD = POST ACTION= •); 
send("'http://131.120.39.65/cgi-win/sysad/brs_pub.exe">'); 

send('<TD ALIGN="CENTER"xlNPUT TYPE=SUBMIT VALUE="Browse"x/TD>'); 
send(’</FORM>'); 

send(’<FORM METHOD = POST ACTION='); 
send("'http://131.120.39.65/cgi-win/sysad/dpub_rrb.exe">'); 

send('<TD ALIGN="CENTER"xiNPUT TYPE=SUBMIT VALUE="Delete"x/TD>'); 
send('</FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send('<P>'); 

sendHR; 

send('<P>'); 

send('<H3>Maintain Faculty Information:</ED>'); 
send('<CENTER>'); 

send('<TABLE BORDER=5 CELLPADDING=5>'); 
send('<TR>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http://131.120.39.65/cgi-'vm/sysad/fac_lst.exe">'); 
send('<TDxiNPUT TYPE=SUBMIT VALUE="Modify''x/TD>'); 
send('</FORM>'); 

send('<FORM METHOD = POST ACTION='); 
send('"http://131.120.39.65/cgi-win/sysad/brs_fac.exe">'); 
send('<TDxlNPUT TYPE=SUBMIT VALUE="Browse"x/TD>'); 
send('</FORM>'); 

send('</TRx/TABLEx/CENTER>'); 

send( '</BODYx/HTML>'); 
closeStdout; 
closeAPP(application); 
end; 
end; 
end. 
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2 . Add Accounts 


unit Sel_accl; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml .FormCreate(Sender: TObject); 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application.onException ;= cgiErrorHandler; 
application.processMessages; 

createStdout; 

sendPrologue; 

send( '<HTMLXHEAD>'); 

sendTitle( 'Select Account Type'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 
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send ('<H2>Choose the type of account you want to add.</H2>'); 
send(’<P>’); 


send('<Center>'); 

send('<FORM method=post action-); 

send("'http;//131.120.39.65/cgi-win/sysad/ad_accfin.exe''>'); 

send('<TABLEBORDER=5 CELLPADDING=5>'); 

send('<TRxtdxinput type="radio" checked name="AccountType"'); 
send('value="FacAcc">Faculty Account'); 

send('<input type="radio" name="AccountType" value="SysAcc">Sys Admin Account<td>'); 
sendC</TABLE>'); 

send('<input type="submit" value="Send Reply">'); 
send('</fonn>'); 

send('<P>'); 

sendHR; 

send('<p>'); 


send('<FORM method=post action-); 

send("'http://131.120.39.65/cgi-win/sysad/syscat.exe">'); 

send('<input type="subniit" value="Cancel, Return to Main Menu">'); 

send('</form>'); 

sendC</CENTER>’); 

send('</BODYx/HTML>’); 
closeStdout; 
closeApp( application ); 
end; 

end; 

end. 

{Add Accounts Forms} 
unit Adaccfin; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, Cgi; 


150 


type 

TFonnl = class(TForm) 

CGBEnvDatal: TCGIEnvData; 
procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml; TForml; 
implementation 
{$R *.DFM) 

procedure TForml .FormCreate(Sender; TObject); 
var 

AccountType : String; 
begin 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
applicatioaonException ;= cgiErrorHandler; 
application.processMessages; 

{standard dynamic HTML header information} 

createStdout; 

sendPrologue; 

AccountType := getSmallField(AccountType'); 

send( '<HTMLXHEAD>’); 

sendTitle( Add Faculty Account'); 

send( '</HEADxBODY BGCOLOR="ADEAEA">'); 

if AccountType = TacAcc' then 
begin 

send ('<center><H2>Add Faculty Account</H2x/center>'); 
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send('<center>'); 

send('<FORM method=post action='); 

send("'http;//131.120.39.65/cgi-win/sysad/addf_acc.exe">'); 

send('<l]SIPUT TYPE="HIDDEN" NAME="AccountType" VALUE="'+AccountType+"'>’); 
send('<TABLE B0RDER=5 CELLPADDING=5>'); 

send('<TRxTD>Faculty Code;</TD><rD><input type="text"'); 

send('name="FacultyCode" size=5 maxlength=5x/TD>'); 
send('<TRxTD>Password;</TDxTDXmput type="password"'); 

send('name="Pwd" size=10 maxlength=10> </td>'); 
send('<TRXTD>Verify Password:</TD><TDxinput type="password"'); 
send('name="Pwd2" size=10 inaxlength=10> </TD>'); 


send('</TABLE> ’); 

sendC<P>’); 

send('<mput type="submit" value= "Add Account">'); 
send('<input type="reset" value="Clear Form">'); 
send('</fonn>'); 
end 
else 
begin 

send ('<centerXH2>Add System Admin Account</H2x/center>'); 
send('<center>'); 

send('<FORM method=post action-); 

send("'http://131.120.39.65/cgi-win/sysad/adds_acc.exe">'); 

send('<INPUT TYPE="HIDDEN" NAME="AccountType" VALUE="'+AccountType^-’">'); 
sendC<TABLEBORDER=5 CELLPADDING=5>'); 

send('<TRxTD>LoginID:</rDxTDxinput type="text"'); 

send('name="LoginE)" size=10 maxlength=10x/TD>'); 
send('<TR><TD>Password:</TDxTDxinput type="password"'); 

send('name="Password" size=10 maxlength=10> </td>'); 
send('<TRxTD>Verify Password ;</TDxTDxinput type="password"'); 
send('name="Password2" size=10 maxlength=10> </Ti»'); 

send(’</TABLE>'); 
send('<P>'); 


send('<input type="submit" value= "Add Account">'); 
send('<input type="reset" value="Clear Form">'); 
send('</form>'); 
end; 
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sendHR; 

send('<FORM method=post action-); 

send('"http;//131.120.39.65/cgi-win/sysad/syscat.exe">'); 

send('<input type=" submit" value=" Cancel, Return to Main Menu 

send('</fonn>'); 

send(’</CENTER>'); 

send(’</BODYx/HTML>’); 

closeStdout; 

closeAPP(application); 

end; 

end; 

end. 

{Add Faculty Account to Table} 
unit Addfacc; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGBEnvDatal: TCGBEnvData; 

Table 1: TTable; 

DataSourcel: TDataSource; 
procedure FormCreate(Sender; TObject); 
private 

{ Private declarations} 
public 

{ Public declarations) 
end; 

var 

Forml: TForml; 


implementation 
{$R *.DFM} 
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procedure TFonnl.FormCreate(Sender; TObject); 
var 

FacultyCode: string; 

Pwd ; string; 

Pwd2 ; string; 

AccountXype: string; 

be^ 

with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNIFilename := paramstr(l); 
application. onException := cgiErrorHandler; 
application.processMessages; 

(HTML page header info} 

createStdout; 

sendPrologue; 

FacultyCode := getSmallField( TacultyCode'); 

Pwd := getSmallField( Pwd'); 

Pwd2 ;= getSmallField( "Pwdi'); 

AccountXype := getSmallfield('AccountXype'); 

send( '<HXML><HEAD>’); 

sendXitle( 'Add Faculty Account'); 

send( '</HEADXBODY BGCOLOR="ADEAEA">'); 

with Xablel do 
begin 
open; 

SetKey; 

FieldByName(TacultyCode'). AsString := FacultyCode; 
GotoKey; 
end; 

if (Xablel.GoXoKey = Xrue) or (FacultyCode = CGINotFound) then 
begin 

send('<h3>Faculty code already exists or you did not enter one.'); 
send(Please try again. </h3>'); 
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send('<p>'); 

sendHEl; 

send('<p>'); 

send('<center>'); 

send('<FORM METHOD=POST ACTION='); 
send("'http://131.120.39.65/c^-'win/sysad/ad_accfin.exe">'); 

sendC<INPUT TYPE="HIDDEN'' NAME="AccountType" VALUE=’"+AccountType+"'>'); 
send('<INPUT TYPE=SUBMIT VALUE="Retum to Faculty Account Form">'); 
send('</FORM>'); 
send('</CENTER>'); 
end 

else {valid FacultyCode chosen} 
begin 

if Pwd o Pwd2 then 
begin (passwords don't agree } 

send('<h2>"Password Mismatch" !</h2>'); 
sendC<h3>Please verify password choice, and try again.</h3>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM ME'raOD=POST ACTION='); 
send("'http://131.120.39.65/cgi-win/sysad/ad_accfin.exe">'); 
send('<INPUT TYPE="HIDDEN" NAME="AccountType" 

VALUE="'+AccountType^-"'>’); 

send('<INPUT TYPE=SUBMIT VALUE="Retum To Faculty Account Form">'); 
send('</FORM>'); 
send('</CENTER>'); 
end 

else {good faculty account} 
begin 

Tablel. AppendRecord([FacultyCode, Pwd]); 

Table 1. close; 

send('<h3>The account information was successfully entered!</h3>'); 

send(’<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send('<FORM METHOD=POST ACTION='); 

send("'http;//131.120.39.65/cgi-win/sysad/syscat.exe">'); 

send('<INPUT TYPE=SUBMIT VALUE="Retum To Main Menu">'); 

send('</FORM>'); 

send('</CENTER>'); 
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end; 

end; 

send( '</BODYx/HTML>’); 
closeStdout; 
closeApp(application); 
end; 

end; 

end. 

{Add System Account to Table} 
unit Addsacc; 

interface 

uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, DB, DBTables, Cgi; 

type 

TForml = class(TForm) 

CGIEnvDatal: TCGIEnvData; 

DataSourcel: TDataSource; 

Tablel: TTable; 

procedure FormCreate(Sender; TObject); 
private 

{ Private declarations } 
public 

{ Public declarations ) 
end; 

var 

Forml: TForml; 
implementation 
{$R *.DFM} 

procedure TForml.FormCreate(Sender: TObject); 
var 

LoginID ; string; 

Password : string; 
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Password! : string; 
AccountType: string; 
begin 


with CGIEnvDatal do 
begin 

{required when this program runs under WebSite} 
webSitelNlFilename := paramstr(l); 
application-onException := cgiErrorHandler; 
application.processMessages; 

(HTML page header info} 

createStdout; 

sendPrologue; 

LoginID := getSmallField( "LoginlD'); 

Password ;= getSmallField( Password'); 

Password! := getSmallField( Password!'); 

AccountType := getSmallfield('AccountType'); 

send( '<HTMLXHEAD>'); 

sendTitle( 'Add System Account'); 

send( '</HEADxBODYBGCOLOR="ADEAEA">'); 

with Tablel do 
begin 
open; 

SetKey; 

FieldByName('LoginID').AsString ;= LoginID; 

GotoKey; 

end; 

if (Tablel.GoToKey = True) or (LoginID = CGINotFound) then 
begin 

send('<h3>LoginID already exists or you did not enter one.'); 

send(Please try again.</h3>'); 

send('<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

sendC<FORM METHOD=POST ACTION='); 
send("'http;//131. l!0.39.65/cgi-win/sysad/ad_accfin.exe">'); 

sendC<INPUT TYPE="HIDDEN" NAME="AccountType" VALUE="’+AccountType+'">'); 
send('<INPUT TYPE=SUBMIT VALUE="Retum to Sys Admin Account Form">'); 
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send(’</FORM>'); 

send(’</CENTER>'); 

end 

else {valid LoginID chosen} 
begin 

if Password o Password2 then 
begin (passwords don't agree } 

send('<h2> "Password Mismatch" !</h2>'); 
send('<h3>Please verify password choice, and try again.</h3>'); 
send('<p>'); 
sendHR; 
send('<p>'); 
send('<center>'); 

send('<FORM METHOD=POST ACTION=’); 
send("'http;//131.120.39.65/cgi-win/sysad/ad_accfin.exe">’); 
send(’<INPUT TYPE="HIDDEN" NAME="AccountType" 
VALUE="’+AccountType+"'>’); 

send('<INPUT TWE=SUBMIT VALUE="Retum To Sys Admin Account Form">'); 
send(’</FORM>'); 
send('</CENTER>'); 
end 

else (good sys Ad account} 
begin 

Table 1. AppendRecord([LoginID, Password]); 

Tablel.close; 

send('<h3>The account information was successfully entered!</h3>'); 

sendC<P>'); 

sendHR; 

send('<p>'); 

send('<center>'); 

send(’<FORM METHOD=POST ACTION=’); 
send('"http://131.120.39.65/cgi-win/sysad/syscat.exe">'); 
send(’<INPUT TYPE=SUBMIT VALUE="Retum To Main Menu">’); 
send('</FORM>’); 
send('</CENTER>’); 
end; 
end; 

send( '</BODYx/HTML>’); 
closeStdout; 
closeApp(application); 
end; 
end; 
end. 
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